diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2009-08-25 21:47:17 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2009-08-25 21:47:17 -0400 |
| commit | f191c6be636ad682343279280fbe02fb2a956a03 (patch) | |
| tree | 172f34c640872383359feef4b92269612f9b63b2 | |
| parent | 75e179dd393a4f6f101f7958191461dcd398cbcc (diff) | |
tweaks: update build to match package names, idiomatic reset!
| -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 |