              (car/with-replies)) ; Make some local modifications
 
     ;; Invalid keys throw w/o preventing valid keys from being processed
-    (wcar {} (try (tundra/ensure-ks tstore (tkey "invalid")
+    (wcar {} (try (tundra/ensure-ks tstore (tkey "invalid") (tkey "invalid-evictable")
                                            (tkey 0) (tkey 1) (tkey 2))
                   (catch Exception _ nil)))
     (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)
+  (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))

(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))))


        (> t1  0)
        (> t2  t1)))

 (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
