diff options
Diffstat (limited to 'src/clojure/contrib/test_contrib')
| -rw-r--r-- | src/clojure/contrib/test_contrib/mock_test.clj | 10 | ||||
| -rw-r--r-- | src/clojure/contrib/test_contrib/mock_test/test_adapter_test.clj | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/src/clojure/contrib/test_contrib/mock_test.clj b/src/clojure/contrib/test_contrib/mock_test.clj index d7fc9854..1737305e 100644 --- a/src/clojure/contrib/test_contrib/mock_test.clj +++ b/src/clojure/contrib/test_contrib/mock_test.clj @@ -3,14 +3,14 @@ (:require [clojure.contrib.mock :as mock])) ; Used as dummy dependency functions -(defn fn1 [x] :ignore) -(defn fn2 [x y] :ignore) -(defn fn3 ([x] :ignore) +(defn fn1 {:dynamic true} [x] :ignore) +(defn fn2 {:dynamic true} [x y] :ignore) +(defn fn3 {:dynamic true} ([x] :ignore) ([x y z] :ignore)) -(defn fn4 [x y & r] :ignore) +(defn fn4 {:dynamic true} [x y & r] :ignore) ;functions created using fn directly lack the argslist meta data -(def deffed-differently (fn [x] :ignore)) +(def #^{:dynamic true} deffed-differently (fn [x] :ignore)) (defmacro assert-called [fn-name called? & body] `(let [called-status?# (atom false)] diff --git a/src/clojure/contrib/test_contrib/mock_test/test_adapter_test.clj b/src/clojure/contrib/test_contrib/mock_test/test_adapter_test.clj index 5dc3a43d..5f21ce11 100644 --- a/src/clojure/contrib/test_contrib/mock_test/test_adapter_test.clj +++ b/src/clojure/contrib/test_contrib/mock_test/test_adapter_test.clj @@ -4,8 +4,8 @@ clojure.test)) (deftest test-report-problem-called - (def #^{:private true} fn1 (fn [x] "dummy code")) - (def #^{:private true} fn2 (fn [x y] "dummy code2")) + (def #^{:private true :dynamic true} fn1 (fn [x] "dummy code")) + (def #^{:private true :dynamic true} fn2 (fn [x y] "dummy code2")) (let [under-test (fn [x] (fn1 x))] (assert-called clojure.contrib.mock.test-adapter/report-problem true (expect [fn1 (times 5)] (under-test "hi"))))) |