   (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 (= 1 (wc (r/expire k 120))))
     (is (< 0 (wc (r/ttl k))))))
 
 (deftest test-lists

                         (r/get k2))))
    (is (= ["B" ["A" "B" "C"] "B"]
           (wc (r/get k2)
               (r/lrange k1 "0" "3")
               (r/get k2))))))

(deftest test-pubsub

          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")]
