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

  (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

          script "return redis.call('set',KEYS[1],'script-value')"
          script-hash (r/hash-script script)]
      (wc (r/script-load script))
      (wc (r/evalsha script-hash 1 k))
      (is (= "script-value" (wc (r/get k))))
      (is (= ["key1" "key2" "arg1" "arg2"]
             (wc (r/eval "return {KEYS[1],KEYS[2],ARGV[1],ARGV[2]}"
                         2 "key1" "key2" "arg1" "arg2")))))))

(deftest test-reply-parsing
  (let [k (test-key "reply-parsing")]
