anchor.diff:        (is (ssdb:setnx "key1" "value2")  t)
         (is (ssdb:setnx "key1" "value2")  nil)
         (is (ssdb:del "key1")             "ok"))
  -    (subtest "Testing setbit getbit bitcount countbit"
  +    (subtest "Testing setbit getbit bitcount countbit 1"
         (is (ssdb:setbit "key1" 0 1)      0)
         (is (ssdb:setbit "key1" 0 1)      1)
         (is (ssdb:getbit "key1" 0)        1)
  
positive.code:       (is (ssdb:substr "key1" 0 8)      "value1")
        (is (ssdb:substr "key1" 1 7)      "alue1")
        (is (ssdb:del "key1")             "ok"))
      (subtest "Testing keys rkeys scan rscan"
        (is (ssdb:keys "" "" -1)          nil)
        (is (ssdb:set "key1" "value1")    "ok")
        (is (ssdb:keys "" "" -1)          '("key1") :test #'equal)
        (is (ssdb:set "key2" "value2")    "ok")
        (is (ssdb:keys "" "" -1)          '("key1" "key2") :test #'equal)
        (is (ssdb:del "key1")             "ok")
        (is (ssdb:keys "" "" -1)          '("key2") :test #'equal)
        (is (ssdb:del "key2")             "ok")
        (is (ssdb:keys "" "" -1)          nil))))
  
  (finalize)
  
negative.code:       (is (ssdb:bitcount "key1")        7)
        (is (ssdb:bitcount "key1" 0 1)    7) ;; index by bytes, not bits
        (is (ssdb:bitcount "key1" 1 2)    4) ;; index by bytes, not bits
        (is (ssdb:countbit "key1")        7)
        (is (ssdb:countbit "key1" 0 1)    3)
        (is (ssdb:countbit "key1" 1 1)    4)
        (is (ssdb:setbit "key1" 1 1)      0)
        (is (ssdb:get "key1")             "cc")
        (is (ssdb:del "key1")             "ok"))
  