2010-01-24 03:28:43 +00:00
|
|
|
(load "about-asserts")
|
|
|
|
|
|
|
|
|
|
(defn meditate-on
|
|
|
|
|
"Runs tests but exits if an assertion fails"
|
|
|
|
|
[test]
|
|
|
|
|
(try
|
|
|
|
|
(test)
|
|
|
|
|
(catch Throwable t
|
|
|
|
|
(println (str "Metadata zen\n" "test name failed"))
|
|
|
|
|
(System/exit 1))))
|
|
|
|
|
|
|
|
|
|
(meditate-on test-truth)
|
|
|
|
|
(meditate-on test-assert-equality)
|
|
|
|
|
(println "You have achieved clojure zen. Go out into the universe and spread your newfound knowledge.")
|
