diff options
author | Rich Hickey <richhickey@gmail.com> | 2009-11-23 15:50:08 -0500 |
---|---|---|
committer | Rich Hickey <richhickey@gmail.com> | 2009-11-23 15:50:08 -0500 |
commit | 57ba205dc43b81dd8f692357e65938e440d7f76e (patch) | |
tree | 98c298756044cba283c3d2db5cd1ca51cbead0fc /src | |
parent | ddd7bc2226927634dc0216554194877fa6f170e1 (diff) |
commented out trace core test
Diffstat (limited to 'src')
-rw-r--r-- | src/clojure/contrib/test_contrib/test_trace.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clojure/contrib/test_contrib/test_trace.clj b/src/clojure/contrib/test_contrib/test_trace.clj index dee7122a..32c2ccbe 100644 --- a/src/clojure/contrib/test_contrib/test_trace.clj +++ b/src/clojure/contrib/test_contrib/test_trace.clj @@ -11,6 +11,6 @@ (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)))) +;(deftest dotrace-on-core +; (let [output (with-out-str (dotrace [mod] (mod 11 5)))] +; (is (re-find #"\(mod 11 5\)" output)))) |