diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-01-20 15:39:56 -0500 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-01-20 15:39:56 -0500 |
| commit | 2ede388a9267d175bfaa7781ee9d57532eb4f20f (patch) | |
| tree | bb42002af196405d7e25cc4e30b4c1c9de5c06d5 /src/clojure/contrib/test_contrib/test_trace.clj | |
| parent | 1bc820d96048a6536706ff999e9892649b53c700 (diff) | |
Move source files into Maven-style directory structure.
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)))) |