luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

How about you don't stop writing tests in the middle, Michael?

Browse source
This commit is contained in:
Michael S. Klishin 2012-05-03 19:55:06 +04:00
parent 8142d02f01
commit 2228a6dcbe
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/monger/test/cache_test.clj
View file

@ -2,7 +2,8 @@
(:require [monger.test.helper :as helper] (:require [monger.test.helper :as helper]
[monger.collection :as mc]) [monger.collection :as mc])
(:use clojure.core.cache clojure.test monger.cache) (:use clojure.core.cache clojure.test monger.cache)
(:import [clojure.core.cache BasicCache FIFOCache LRUCache TTLCache])) (:import [clojure.core.cache BasicCache FIFOCache LRUCache TTLCache]
java.util.UUID))
;; ;;
;; Playground/Tests. These were necessary because clojure.core.cache has ;; Playground/Tests. These were necessary because clojure.core.cache has
@ -92,7 +93,8 @@
(testing "that has? returns false for misses" (testing "that has? returns false for misses"
(let [coll "basic_monger_cache_entries" (let [coll "basic_monger_cache_entries"
c (basic-monger-cache-factory coll)] c (basic-monger-cache-factory coll)]
)) (is (not (has? c (str (UUID/randomUUID)))))
(is (not (has? c (str (UUID/randomUUID)))))))
(testing "that has? returns true for hits" (testing "that has? returns true for hits"
(let [coll "basic_monger_cache_entries" (let [coll "basic_monger_cache_entries"
c (basic-monger-cache-factory coll {"a" 1 "b" "cache" "c" 3/4})] c (basic-monger-cache-factory coll {"a" 1 "b" "cache" "c" 3/4})]