diff options
| -rw-r--r-- | build.xml | 1 | ||||
| -rw-r--r-- | src/clojure/contrib/test_contrib/expect_test.clj | 2 |
2 files changed, 1 insertions, 2 deletions
@@ -124,7 +124,6 @@ <arg value="clojure.contrib.except"/> <arg value="clojure.contrib.expect"/> <arg value="clojure.contrib.expect.test-is-adapter"/> - <arg value="clojure.contrib.expect.util"/> <arg value="clojure.contrib.fcase"/> <arg value="clojure.contrib.find-namespaces"/> <arg value="clojure.contrib.fnmap"/> diff --git a/src/clojure/contrib/test_contrib/expect_test.clj b/src/clojure/contrib/test_contrib/expect_test.clj index 941a0d69..52f37741 100644 --- a/src/clojure/contrib/test_contrib/expect_test.clj +++ b/src/clojure/contrib/test_contrib/expect_test.clj @@ -14,7 +14,7 @@ (defmacro assert-called [fn-name called? & body] `(let [called-status?# (atom false)] - (binding [~fn-name (fn [& args#] (swap! called-status?# (fn [& args#] true)))] ~@body) + (binding [~fn-name (fn [& args#] (reset! called-status?# true))] ~@body) (is (= ~called? @called-status?#)))) (deftest test-convenience |