omega-red.clj

(ns omega-red.redis-test
  (:require [omega-red.protocol :as proto]
            [omega-red.redis]
            [com.stuartsierra.component :as component]))

(let [red (componet/start (omega-red.redis/create {:host "127.0.0.1" :port 6379}))]
    (println (= 0 (proto/execute red :exists "test.some.key"))) ; true
    (println (= "OK" (proto/execute red :set "test.some.key" "foo"))) ; true
    (println (= 1 (proto/execute red :exists "test.some.key"))) ; true
    (println (= "foo" (proto/execute red :get "test.some.key"))) ; true
    (println (= 1 (proto/execute red :del "test.some.key"))) ; true
    (component/stop red)
    (println (nil? (proto/execute red :get "test.some.key")))) ; true

;; pipeline execution
(println (= [nil "OK" "oh ok" 1]
       (proto/execute-pipeline red
                               [:get "test.some.key.pipe"]
                               [:set "test.some.key.pipe" "oh ok"]
                               [:get "test.some.key.pipe"]
                               [:del "test.some.key.pipe"]))) ; true