diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-11-28 13:46:45 -0500 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-11-28 13:46:45 -0500 |
| commit | a4a4a534d7dddc1d58fc93a216192bf4bb7b20ff (patch) | |
| tree | 126b3bc2589db00b29501a2d7b42efb365c0ff0b /src/clojure/contrib/test_contrib/mock_test | |
| parent | 59b6a660707837af10b69cc67fe9033ba528d22f (diff) | |
added :dynamic annotations to mock
Diffstat (limited to 'src/clojure/contrib/test_contrib/mock_test')
| -rw-r--r-- | src/clojure/contrib/test_contrib/mock_test/test_adapter_test.clj | 4 |
1 files changed, 2 insertions, 2 deletions
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"))))) |