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

(let [tstore (tundra/tundra-store dstore)]
  (expect (and (:access-key creds) (:secret-key creds)))
  (expect Exception (wcar {} (tundra/dirty     tstore (tkey "invalid"))))
  (expect Exception (wcar {} (tundra/ensure-ks tstore (tkey "invalid")))))

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

    ;; Invalid keys throw w/o preventing valid keys from being processed
    (wcar {} (try (tundra/dirty tstore (tkey "invalid")
                                       (tkey 0) (tkey 1) (tkey 2))
                  (catch Exception _ nil)))


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

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