diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-11-02 11:16:08 -0500 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-11-02 11:16:08 -0500 |
| commit | 6dff158bdec5f06c33877c6c6550699d5e08ca71 (patch) | |
| tree | 04c0e4a308149875a163f33e885164c442d12d62 /src/clojure/contrib/test_contrib/test_trace.clj | |
| parent | 6f9e9c276bf53b0fce2275abf29a25f9735a6409 (diff) | |
trace.clj: add dotrace; fixes #39
Patch from Michel Salim
Diffstat (limited to 'src/clojure/contrib/test_contrib/test_trace.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/test_trace.clj | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/clojure/contrib/test_contrib/test_trace.clj b/src/clojure/contrib/test_contrib/test_trace.clj index 4b283056..dee7122a 100644 --- a/src/clojure/contrib/test_contrib/test_trace.clj +++ b/src/clojure/contrib/test_contrib/test_trace.clj @@ -9,4 +9,8 @@ (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))))
\ No newline at end of file + output)))) + +(deftest dotrace-on-core + (let [output (with-out-str (dotrace [mod] (mod 11 5)))] + (is (re-find #"\(mod 11 5\)" output)))) |