1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojure/contrib/test_contrib/test_trace.clj	Sat Aug 21 06:25:44 2010 -0400
     1.3 @@ -0,0 +1,16 @@
     1.4 +(ns clojure.contrib.test-trace
     1.5 +  (:use clojure.test
     1.6 +        clojure.contrib.trace))
     1.7 +
     1.8 +(deftrace call-myself [n]
     1.9 +  (when-not (< n 1)
    1.10 +    (call-myself (dec n))))
    1.11 +
    1.12 +(deftest test-tracing-a-function-that-calls-itself
    1.13 +  (let [output (with-out-str (call-myself 1))]
    1.14 +    (is (re-find #"^TRACE t\d+: (call-myself 1)\nTRACE t\d+: |    (call-myself 0)\nTRACE t\d+: |    => nil\nTRACE t\d+: => nil$"
    1.15 +                 output))))
    1.16 +
    1.17 +;(deftest dotrace-on-core
    1.18 +;  (let [output (with-out-str (dotrace [mod] (mod 11 5)))]
    1.19 +;    (is (re-find #"\(mod 11 5\)" output))))