finishing asserts

This commit is contained in:
Aaron Bedra 2010-01-31 10:52:32 -06:00
parent e388687891
commit 11476f961c
2 changed files with 8 additions and 0 deletions

View File

@ -1,3 +1,5 @@
(def __ nil)
(defn #^{:zen "We shall contemplate truth by testing reality, via asserts."} (defn #^{:zen "We shall contemplate truth by testing reality, via asserts."}
test-truth test-truth
[] []
@ -9,3 +11,8 @@
(let [expected-value 0 (let [expected-value 0
actual-value (+ 1 1)] actual-value (+ 1 1)]
(assert (= expected-value actual-value)))) (assert (= expected-value actual-value))))
(defn #^{:zen "Sometimes we will ask you to fill in the values"}
test-fill-in-values
[]
(assert (= __ (+ 1 1))))

View File

@ -13,4 +13,5 @@
(meditate-on test-truth) (meditate-on test-truth)
(meditate-on test-assert-equality) (meditate-on test-assert-equality)
(meditate-on test-fill-in-values)
(println "You have achieved clojure zen. Go out into the universe and spread your newfound knowledge.") (println "You have achieved clojure zen. Go out into the universe and spread your newfound knowledge.")