Mercurial > lasercutter

view src/clojure/contrib/test_contrib/test_trace.clj @ 10:ef7dbbd6452c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added clojure source goodness
author Robert McIntyre <rlm@mit.edu>
date Sat, 21 Aug 2010 06:25:44 -0400
parents
children
line wrap: on
line source
     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))))