aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/test_contrib/expect_test
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure/contrib/test_contrib/expect_test')
-rw-r--r--src/clojure/contrib/test_contrib/expect_test/test_adapter_test.clj2
-rw-r--r--src/clojure/contrib/test_contrib/expect_test/util.clj8
2 files changed, 1 insertions, 9 deletions
diff --git a/src/clojure/contrib/test_contrib/expect_test/test_adapter_test.clj b/src/clojure/contrib/test_contrib/expect_test/test_adapter_test.clj
index c7fceb83..df74404e 100644
--- a/src/clojure/contrib/test_contrib/expect_test/test_adapter_test.clj
+++ b/src/clojure/contrib/test_contrib/expect_test/test_adapter_test.clj
@@ -1,6 +1,6 @@
(ns clojure.contrib.test-contrib.expect-test.test-adapter-test
(:use clojure.contrib.expect.test-adapter
- [clojure.contrib.test-contrib.expect-test.util :only (assert-called)]
+ [clojure.contrib.test-contrib.expect-test :only (assert-called)]
clojure.test))
(deftest test-report-problem-called
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?#))))
-