diff options
Diffstat (limited to 'src/clojure/contrib/test_contrib/expect_test/util.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/expect_test/util.clj | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/clojure/contrib/test_contrib/expect_test/util.clj b/src/clojure/contrib/test_contrib/expect_test/util.clj deleted file mode 100644 index a7f0fea9..00000000 --- a/src/clojure/contrib/test_contrib/expect_test/util.clj +++ /dev/null @@ -1,8 +0,0 @@ -(ns clojure.contrib.test-contrib.expect-test.util - (:use clojure.test)) - -(defmacro assert-called [fn-name called? & body] - `(let [called-status?# (atom false)] - (binding [~fn-name (fn [& args#] (swap! called-status?# (fn [& args#] true)))] ~@body) - (is (= ~called? @called-status?#)))) - |