added adapter test

1 files changed, 18 insertions, 0 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
new file mode 100644
index 00000000..c7fceb83
--- /dev/null
+++ b/src/clojure/contrib/test_contrib/expect_test/test_adapter_test.clj
@@ -0,0 +1,18 @@
+(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.test))
+
+(deftest test-report-problem-called
+  (def #^{:private true} fn1 (fn [x] "dummy code"))
+  (def #^{:private true} fn2 (fn [x y] "dummy code2"))
+  (let [under-test (fn [x] (fn1 x))]
+    (assert-called clojure.contrib.expect.test-adapter/report-problem
+      true (expect [fn1 (times 5)] (under-test "hi")))))
+
+(deftest test-is-report-called
+  (assert-called clojure.test/report true
+    (clojure.contrib.expect.test-adapter/report-problem
+      'fn-name 5 6 "fake problem")))
+
+