Mercurial > lasercutter

     1 (ns clojure.contrib.test-contrib.mock-test.test-adapter-test

     2  (:use clojure.contrib.mock.test-adapter

     3    [clojure.contrib.test-contrib.mock-test :only (assert-called)]

     4    clojure.test))

     5 

     6 (deftest test-report-problem-called

     7   (def #^{:private true :dynamic true} fn1 (fn [x] "dummy code"))

     8   (def #^{:private true :dynamic true} fn2 (fn [x y] "dummy code2"))

     9   (let [under-test (fn [x] (fn1 x))]

    10     (assert-called clojure.contrib.mock.test-adapter/report-problem

    11       true (expect [fn1 (times 5)] (under-test "hi")))))

    12 

    13 (deftest test-is-report-called

    14   (assert-called clojure.test/report true

    15     (clojure.contrib.mock.test-adapter/report-problem

    16       'fn-name 5 6 "fake problem")))

    17 

    18
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 21 Aug 2010 06:25:44 -0400
parents
children