1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojure/contrib/test_contrib/mock/test_adapter.clj	Sat Aug 21 06:25:44 2010 -0400
     1.3 @@ -0,0 +1,18 @@
     1.4 +(ns clojure.contrib.test-contrib.mock-test.test-adapter-test
     1.5 + (:use clojure.contrib.mock.test-adapter
     1.6 +   [clojure.contrib.test-contrib.mock-test :only (assert-called)]
     1.7 +   clojure.test))
     1.8 +
     1.9 +(deftest test-report-problem-called
    1.10 +  (def #^{:private true :dynamic true} fn1 (fn [x] "dummy code"))
    1.11 +  (def #^{:private true :dynamic true} fn2 (fn [x y] "dummy code2"))
    1.12 +  (let [under-test (fn [x] (fn1 x))]
    1.13 +    (assert-called clojure.contrib.mock.test-adapter/report-problem
    1.14 +      true (expect [fn1 (times 5)] (under-test "hi")))))
    1.15 +
    1.16 +(deftest test-is-report-called
    1.17 +  (assert-called clojure.test/report true
    1.18 +    (clojure.contrib.mock.test-adapter/report-problem
    1.19 +      'fn-name 5 6 "fake problem")))
    1.20 +
    1.21 +