MGET tests added

diff --git a/test-redis.tcl b/test-redis.tcl
index 4053d3f11c4844a6f04778ea9896e2543e2bd768..99b5646363217f52bebbfa09a5a31b74b96bf2ad 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -553,6 +553,23 @@ proc main {server port} {
         list [redis_lrange $fd mylist 0 -1] $res
     } {{foo bar foobar foobared zap test} 2}
 
         list [redis_lrange $fd mylist 0 -1] $res
     } {{foo bar foobar foobared zap test} 2}
 

+    test {MGET} {
+        redis_flushall $fd
+        redis_set $fd foo BAR
+        redis_set $fd bar FOO
+        redis_mget $fd foo bar
+    } {BAR FOO}
+
+    test {MGET against non existing key} {
+        redis_mget $fd foo baazz bar
+    } {BAR {} FOO}
+
+    test {MGET against non-string key} {
+        redis_sadd $fd myset ciao
+        redis_sadd $fd myset bau
+        redis_mget $fd foo baazz bar myset
+    } {BAR {} FOO {}}
+

     # Leave the user with a clean DB before to exit
     test {FLUSHALL} {
         redis_flushall $fd
     # Leave the user with a clean DB before to exit
     test {FLUSHALL} {
         redis_flushall $fd


@@ -589,9 +606,10 @@ proc redis_readnl {fd len} {
     return $buf
 }
 
     return $buf
 }
 

-proc redis_bulk_read fd {
+proc redis_bulk_read {fd {multi 0}} {

     set count [redis_read_integer $fd]
     if {$count eq {nil}} return {}
     set count [redis_read_integer $fd]
     if {$count eq {nil}} return {}

+    if {$multi && $count == -1} return {}

     set len [expr {abs($count)}]
     set buf [redis_readnl $fd $len]
     if {$count < 0} {return "***ERROR*** $buf"}
     set len [expr {abs($count)}]
     set buf [redis_readnl $fd $len]
     if {$count < 0} {return "***ERROR*** $buf"}


@@ -608,7 +626,7 @@ proc redis_multi_bulk_read fd {
     }
     set l {}
     for {set i 0} {$i < $count} {incr i} {
     }
     set l {}
     for {set i 0} {$i < $count} {incr i} {

-        lappend l [redis_bulk_read $fd]
+        lappend l [redis_bulk_read $fd 1]

     }
     return $l
 }
     }
     return $l
 }


@@ -710,6 +728,11 @@ proc redis_lrange {fd key first last} {
     redis_multi_bulk_read $fd
 }
 
     redis_multi_bulk_read $fd
 }
 

+proc redis_mget {fd args} {
+    redis_writenl $fd "mget [join $args]"
+    redis_multi_bulk_read $fd
+}
+

 proc redis_sort {fd key {params {}}} {
     redis_writenl $fd "sort $key $params"
     redis_multi_bulk_read $fd
 proc redis_sort {fd key {params {}}} {
     redis_writenl $fd "sort $key $params"
     redis_multi_bulk_read $fd