Clear cache in teardown method of MemoizedFixture

stuartsierra · Aug 15, 2010 · 3ebf3ed · 3ebf3ed
1 parent 0bea24c
commit 3ebf3ed
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/main/clojure/lazytest/fixture.clj b/src/main/clojure/lazytest/fixture.clj
@@ -39,11 +39,12 @@
   (setup [this]
 	 (swap! cache (fn [value]
 			(if (= ::unset value) (f) value))))
-  (teardown [this] nil))
+  (teardown [this]
+	    (reset! cache ::unset)))
 
 (defn memoized-fixture
   "Returns a fixture whose setup method calls, returns, and caches the
-  value of f. The fixture's teardown method does nothing."
+  value of f. The fixture's teardown method clears the cache."
   [f]
   {:pre [(fn? f)]}
   (MemoizedFixture. f (atom ::unset)))