Testing LRU-ness

clojure · Mar 12, 2012 · 582f86b · 582f86b
1 parent a052bb5
commit 582f86b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/main/clojure/clojure/core/cache.clj b/src/main/clojure/clojure/core/cache.clj
@@ -72,7 +72,7 @@
        (empty [this#]
          (seed this# (empty ~base-field)))
        (equiv [_# other#]
-         (.equiv ~base-field other#))
+         (.equiv other# ~base-field))
 
        clojure.lang.Seqable
        (seq [_#]

diff --git a/src/test/clojure/clojure/core/cache/tests.clj b/src/test/clojure/clojure/core/cache/tests.clj
@@ -131,6 +131,12 @@
     (do-assoc (LRUCache. {} {} 0 2))
     (do-dissoc (LRUCache. {:a 1 :b 2} {}  0 2))))
 
+(deftest test-lru-cache
+  (testing "LRU-ness"
+    (let [C (lru-cache-factory {} :limit 2)]
+      (are [x y] (= x y)
+           {:a 1, :b 2} (-> C (assoc :a 1) (assoc :b 2) .cache)))))
+
 (deftest test-ttl-cache-ilookup
   (testing "that the TTLCache can lookup via keywords"
     (do-ilookup-tests (TTLCache. small-map {} 2)))