Mercurial > lasercutter
annotate src/clojure/contrib/test_contrib/test_trace.clj @ 10:ef7dbbd6452c
added clojure source goodness
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 21 Aug 2010 06:25:44 -0400 |
parents | |
children |
rev | line source |
---|---|
rlm@10 | 1 (ns clojure.contrib.test-trace |
rlm@10 | 2 (:use clojure.test |
rlm@10 | 3 clojure.contrib.trace)) |
rlm@10 | 4 |
rlm@10 | 5 (deftrace call-myself [n] |
rlm@10 | 6 (when-not (< n 1) |
rlm@10 | 7 (call-myself (dec n)))) |
rlm@10 | 8 |
rlm@10 | 9 (deftest test-tracing-a-function-that-calls-itself |
rlm@10 | 10 (let [output (with-out-str (call-myself 1))] |
rlm@10 | 11 (is (re-find #"^TRACE t\d+: (call-myself 1)\nTRACE t\d+: | (call-myself 0)\nTRACE t\d+: | => nil\nTRACE t\d+: => nil$" |
rlm@10 | 12 output)))) |
rlm@10 | 13 |
rlm@10 | 14 ;(deftest dotrace-on-core |
rlm@10 | 15 ; (let [output (with-out-str (dotrace [mod] (mod 11 5)))] |
rlm@10 | 16 ; (is (re-find #"\(mod 11 5\)" output)))) |