Test LINDEX out of range index.

diff --git a/tests/unit/type/list.tcl b/tests/unit/type/list.tcl
index 970e3ee7fb8fcf65719f8f6129a616aaa7f1e5ba..9a63d45137f628daed75782c6cfc84de724bcd84 100644 (file)
--- 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 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
     }
 
         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 $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)]
 
         # 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 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} {
     }
 
     test {Variadic RPUSH/LPUSH} {