     (is (= "fido" (wc (r/get k))))
     (is (= 15 (wc (r/append k " [shutdown]"))))
     (is (= "fido [shutdown]" (wc (r/getset k "fido [running]"))))
-    (is (= "running" (wc (r/getrange k "6" "12")))))
+    (is (= "running" (wc (r/getrange k 6 12)))))
   (let [k (test-key "mykey")]
-    (wc (r/setbit k "7" "1"))
-    (is (= 1 (wc (r/getbit k "7")))))
+    (wc (r/setbit k 7 1))
+    (is (= 1 (wc (r/getbit k 7)))))
   (let [k (test-key "multiline")]
     (is (= "OK" (wc (r/set k "Redis\r\nDemo"))))
     (is (= "Redis\r\nDemo" (wc (r/get k))))))
 
 (deftest test-incr-decr
   (let [k (test-key "connections")]
-    (wc (r/set k "10"))
+    (wc (r/set k 10))
     (is (= 11 (wc (r/incr k))))
-    (is (= 20 (wc (r/incrby k "9"))))
+    (is (= 20 (wc (r/incrby k 9))))
     (is (= 19 (wc (r/decr k))))
-    (is (= 10 (wc (r/decrby k "9"))))))
+    (is (= 10 (wc (r/decrby k 9))))))
 
 (deftest test-del
   (let [k (test-key "something")]

  (let [k (test-key "resource:lock")]
    (wc (r/set k "Redis Demo"))
    (is (= -1 (wc (r/ttl k))))
    (is (= 1 (wc (r/expire k "120"))))
    (is (< 0 (wc (r/ttl k))))))

(deftest test-lists


(deftest test-parallelism
  (let [k (test-key "parallel-key")]
    (wc (r/set k 0))
    (->> (fn [] (future (dotimes [n 100] (wc (r/incr k)))))
         (repeatedly 100) ; No. of parallel clients
         (doall)
