Commits

Nikhil Marathe  committed d4d32c2

Added test for multi-bulk smembers

  • Participants
  • Parent commits 27940ce

Comments (0)

Files changed (1)

File test-redis.lsp

 (println "INCR abcd => " (:incr conn "abcd"))
 (println "INCRBY 5 => " (:incrby conn "abcd" 5))
 
-(dolist (x (:keys conn "*"))
+(dolist (x (:keys conn "abcd"))
   (println x " --> " (:get conn x)))
 
 (assert-equals (:getset conn "abcd" 666) "48")
 
 (assert-equals (:setnx conn "abcd" 90) 0)
 
+(dotimes (x 5)
+    (:sadd conn "testset" (rand 100)))
+
+(println (:smembers conn "testset"))
 (:close conn)
 
-;(assert-fail (:get conn "minestrone:playlist:sXLruRrkPApP3eErshhqtE"))
+(println "All tests OK")
 (exit)