EVALSHA is now case insensitive.

[redis.git] / tests / unit / bitops.tcl

diff --git a/tests/unit/bitops.tcl b/tests/unit/bitops.tcl
index c8f58ef1e5931b5a0b6fb34a88e881cf449ea6e7..127a0e680346ad4d0e783f1751b5e6151f1a1bb7 100644 (file)
--- a/tests/unit/bitops.tcl
+++ b/tests/unit/bitops.tcl
@@ -73,6 +73,17 @@ start_server {tags {"bitops"}} {
         set e
     } {ERR*syntax*}
 
         set e
     } {ERR*syntax*}
 

+    test {BITCOUNT regression test for github issue #582} {
+        r del str
+        r setbit foo 0 1
+        if {[catch {r bitcount foo 0 4294967296} e]} {
+            assert_match {*ERR*out of range*} $e
+            set _ 1
+        } else {
+            set e
+        }
+    } {1}
+

     test {BITOP NOT (empty string)} {
         r set s ""
         r bitop not dest s
     test {BITOP NOT (empty string)} {
         r set s ""
         r bitop not dest s


@@ -160,4 +171,10 @@ start_server {tags {"bitops"}} {
         catch {r bitop xor dest a b c d} e
         set e
     } {*ERR*}
         catch {r bitop xor dest a b c d} e
         set e
     } {*ERR*}

+
+    test {BITOP with empty string after non empty string (issue #529)} {
+        r flushdb
+        r set a "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+        r bitop or x a b
+    } {32}

 }
 }