diff --git a/tests/unit/bitops.tcl b/tests/unit/bitops.tcl index a145199a3e9b1ba766e6c3d6db46978e3d297539..e7f289f9480e2ce70f84b537b5783950ddc4ec41 100644 --- a/tests/unit/bitops.tcl +++ b/tests/unit/bitops.tcl @@ -98,6 +98,18 @@ start_server {tags {"bitops"}} { } } {1} + test {BITCOUNT misaligned prefix} { + r del str + r set str ab + r bitcount str 1 -1 + } {3} + + test {BITCOUNT misaligned prefix + full words + remainder} { + r del str + r set str __PPxxxxxxxxxxxxxxxxRR__ + r bitcount str 2 -3 + } {74} + test {BITOP NOT (empty string)} { r set s "" r bitop not dest s