Mercurial > lasercutter
comparison 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 |
comparison
equal
deleted
inserted
replaced
9:35cf337adfcf | 10:ef7dbbd6452c |
---|---|
1 (ns clojure.contrib.test-trace | |
2 (:use clojure.test | |
3 clojure.contrib.trace)) | |
4 | |
5 (deftrace call-myself [n] | |
6 (when-not (< n 1) | |
7 (call-myself (dec n)))) | |
8 | |
9 (deftest test-tracing-a-function-that-calls-itself | |
10 (let [output (with-out-str (call-myself 1))] | |
11 (is (re-find #"^TRACE t\d+: (call-myself 1)\nTRACE t\d+: | (call-myself 0)\nTRACE t\d+: | => nil\nTRACE t\d+: => nil$" | |
12 output)))) | |
13 | |
14 ;(deftest dotrace-on-core | |
15 ; (let [output (with-out-str (dotrace [mod] (mod 11 5)))] | |
16 ; (is (re-find #"\(mod 11 5\)" output)))) |