diff options
Diffstat (limited to 'src/clojure/contrib/test_contrib/test_trace.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/test_trace.clj | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/clojure/contrib/test_contrib/test_trace.clj b/src/clojure/contrib/test_contrib/test_trace.clj deleted file mode 100644 index 32c2ccbe..00000000 --- a/src/clojure/contrib/test_contrib/test_trace.clj +++ /dev/null @@ -1,16 +0,0 @@ -(ns clojure.contrib.test-contrib.test-trace - (:use clojure.test - [clojure.contrib trace str-utils])) - -(deftrace call-myself [n] - (when-not (< n 1) - (call-myself (dec n)))) - -(deftest test-tracing-a-function-that-calls-itself - (let [output (with-out-str (call-myself 1))] - (is (re-find #"^TRACE t\d+: (call-myself 1)\nTRACE t\d+: | (call-myself 0)\nTRACE t\d+: | => nil\nTRACE t\d+: => nil$" - output)))) - -;(deftest dotrace-on-core -; (let [output (with-out-str (dotrace [mod] (mod 11 5)))] -; (is (re-find #"\(mod 11 5\)" output)))) |