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

(comment (test/run-tests '[taoensso.carmine.tests.tundra]))

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


            (car/ttl (tkey 0)))))

(comment (clean-up!)
         (mq/queue-status {} qname))
