From 2ede388a9267d175bfaa7781ee9d57532eb4f20f Mon Sep 17 00:00:00 2001 From: Stuart Sierra Date: Wed, 20 Jan 2010 15:39:56 -0500 Subject: Move source files into Maven-style directory structure. --- .../test_contrib/mock_test/test_adapter_test.clj | 18 ------------------ 1 file changed, 18 deletions(-) delete mode 100644 src/clojure/contrib/test_contrib/mock_test/test_adapter_test.clj (limited to 'src/clojure/contrib/test_contrib/mock_test') 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 deleted file mode 100644 index 5f21ce11..00000000 --- a/src/clojure/contrib/test_contrib/mock_test/test_adapter_test.clj +++ /dev/null @@ -1,18 +0,0 @@ -(ns clojure.contrib.test-contrib.mock-test.test-adapter-test - (:use clojure.contrib.mock.test-adapter - [clojure.contrib.test-contrib.mock-test :only (assert-called)] - clojure.test)) - -(deftest test-report-problem-called - (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"))))) - -(deftest test-is-report-called - (assert-called clojure.test/report true - (clojure.contrib.mock.test-adapter/report-problem - 'fn-name 5 6 "fake problem"))) - - -- cgit v1.2.3-18-g5258