 
 (defmacro wcar* [& body] `(car/wcar {:pool {} :spec {}} ~@body))
 (def tkey (partial car/key :carmine :tundra :test))
-(def qname "carmine-tundra-tests")
+(def tqname "carmine-tundra-tests")
 (defn clean-up! []
-  (mq/clear-queues {} qname)
+  (mq/clear-queues {} tqname)
   (when-let [ks (seq (wcar* (car/keys (tkey :*))))]
     (wcar* (apply car/del ks))))
 

    (wcar* (car/mget (tkey 0) (tkey 1) (tkey 2)))))

(expect [-1 -1 -1] ; nil eviction timeout (default) is respected!
  (let [tstore  (tundra/tundra-store dstore {:qname qname})
        tworker (tundra/worker tstore {} {:eoq-backoff-ms 100 :throttle-ms 100})]
    (wcar* (car/mset (tkey 0) "0" (tkey 1) "1" (tkey 2) "1") ; Clears timeouts
           (tundra/dirty tstore (tkey 0) (tkey 1) (tkey 2))

                                 (car/del (tkey 0) "0"))))

(expect [[:clj-val] [:clj-val] [:clj-val-new]]
  (let [tstore  (tundra/tundra-store dstore {:tqname tqname})
        tworker (tundra/worker tstore {} {:eoq-backoff-ms 100 :throttle-ms 100})]
    (wcar* (car/mset (tkey 0) [:clj-val]
                     (tkey 1) [:clj-val]
