From 271f08784264e25c3dbcd751f8c9ee1b1ad8306e Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 15 Apr 2011 18:28:25 +0200
Subject: [PATCH] Variadic SADD tests
---
tests/unit/type/set.tcl | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/tests/unit/type/set.tcl b/tests/unit/type/set.tcl
index 5608a6480..ef7d668cc 100644
--- a/tests/unit/type/set.tcl
+++ b/tests/unit/type/set.tcl
@@ -59,6 +59,13 @@ start_server {
assert_encoding hashtable myset
}
+ test {Variadic SADD} {
+ r del myset
+ assert_equal 3 [r sadd myset a b c]
+ assert_equal 2 [r sadd myset A a b c B]
+ assert_equal [lsort {A a b c B}] [lsort [r smembers myset]]
+ }
+
test "Set encoding after DEBUG RELOAD" {
r del myintset myhashset mylargeintset
for {set i 0} {$i < 100} {incr i} { r sadd myintset $i }