From 94e5c1d7e5928b53df545a62f91d033754408b43 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Wed, 18 Apr 2012 17:17:53 +0200
Subject: [PATCH] Test LINDEX out of range index.

---
 tests/unit/type/list.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/unit/type/list.tcl b/tests/unit/type/list.tcl
index 970e3ee7..9a63d451 100644
--- a/tests/unit/type/list.tcl
+++ b/tests/unit/type/list.tcl
@@ -26,6 +26,7 @@ start_server {
         assert_equal c [r lindex myziplist2 0]
         assert_equal b [r lindex myziplist2 1]
         assert_equal a [r lindex myziplist2 2]
+        assert_equal {} [r lindex myziplist2 3]
         assert_encoding ziplist myziplist2
     }
 
@@ -39,6 +40,7 @@ start_server {
         assert_equal $largevalue(linkedlist) [r lindex mylist1 0]
         assert_equal b [r lindex mylist1 1]
         assert_equal c [r lindex mylist1 2]
+        assert_equal {} [r lindex mylist1 3]
 
         # first rpush then lpush
         assert_equal 1 [r rpush mylist2 $largevalue(linkedlist)]
@@ -49,6 +51,7 @@ start_server {
         assert_equal c [r lindex mylist2 0]
         assert_equal b [r lindex mylist2 1]
         assert_equal $largevalue(linkedlist) [r lindex mylist2 2]
+        assert_equal {} [r lindex mylist2 3]
     }
 
     test {Variadic RPUSH/LPUSH} {