Mercurial > lasercutter

annotate src/clojure/contrib/test_contrib/mock/test_adapter.clj @ 10:ef7dbbd6452c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added clojure source goodness
author Robert McIntyre <rlm@mit.edu>
date Sat, 21 Aug 2010 06:25:44 -0400
parents
children
rev   line source
rlm@10 1 (ns clojure.contrib.test-contrib.mock-test.test-adapter-test
rlm@10 2 (:use clojure.contrib.mock.test-adapter
rlm@10 3 [clojure.contrib.test-contrib.mock-test :only (assert-called)]
rlm@10 4 clojure.test))
rlm@10 5
rlm@10 6 (deftest test-report-problem-called
rlm@10 7 (def #^{:private true :dynamic true} fn1 (fn [x] "dummy code"))
rlm@10 8 (def #^{:private true :dynamic true} fn2 (fn [x y] "dummy code2"))
rlm@10 9 (let [under-test (fn [x] (fn1 x))]
rlm@10 10 (assert-called clojure.contrib.mock.test-adapter/report-problem
rlm@10 11 true (expect [fn1 (times 5)] (under-test "hi")))))
rlm@10 12
rlm@10 13 (deftest test-is-report-called
rlm@10 14 (assert-called clojure.test/report true
rlm@10 15 (clojure.contrib.mock.test-adapter/report-problem
rlm@10 16 'fn-name 5 6 "fake problem")))
rlm@10 17
rlm@10 18