         (> t2  t1)))
 
  (let [tstore  (tundra/tundra-store dstore {:redis-ttl-ms (* 1000 60 60 24)
-                                            :qname qname})
+                                            :tqname tqname})
        tworker (tundra/worker tstore {} {:eoq-backoff-ms 100 :throttle-ms 100
                                          :auto-start false})]
    (wcar* (car/set (tkey 0) "0") ; Clears timeout


(defmacro wcar* [& body] `(car/wcar {:pool {} :spec {}} ~@body))
(def tkey (partial car/key :carmine :tundra :test))
(def qname "carmine-tundra-tests")
(defn clean-up! []
  (mq/clear-queues {} qname)
  (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 {:tqname tqname})
        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))
