redis-clojure atomically doc

user=> (doc redis/atomically)
-------------------------
redis/atomically
([& body])
Macro
  Execute all redis commands in body atomically, ie. sandwiched in a
  MULTI/EXEC statement. If an exception is thrown the EXEC command
  will be terminated by a DISCARD, no operations will be performed and
  the exception will be rethrown.

redis-clojure atomically tests

(deftest atomically
  (redis/set "key" "value")
  (is (= ["OK" "OK" "blahong"]
       (redis/atomically
        (redis/set "key" "blahonga")
        (redis/set "key2" "blahong")
        (redis/get "key2"))))
  (is (= "blahonga" (redis/get "key"))))

(deftest atomically-with-exception
  (redis/set "key" "value")
  (is (thrown? Exception 
               (redis/atomically
                (redis/set "key" "blahonga")
                (throw (Exception. "Fail"))
                (redis/set "key2" "blahong"))))
  (is (= "value" (redis/get "key"))))