2010-01-31 16:52:32 +00:00
|
|
|
(def __ nil)
|
|
|
|
|
2010-01-24 16:04:27 +00:00
|
|
|
(defn #^{:zen "We shall contemplate truth by testing reality, via asserts."}
|
|
|
|
test-truth
|
2010-01-24 03:28:43 +00:00
|
|
|
[]
|
|
|
|
(assert false)) ;; This should be true
|
|
|
|
|
2010-01-24 16:04:27 +00:00
|
|
|
(defn #^{:zen "To understand reality, we must compare our expectations against reality."}
|
|
|
|
test-assert-equality
|
2010-01-24 03:28:43 +00:00
|
|
|
[]
|
|
|
|
(let [expected-value 0
|
|
|
|
actual-value (+ 1 1)]
|
|
|
|
(assert (= expected-value actual-value))))
|
2010-01-31 16:52:32 +00:00
|
|
|
|
|
|
|
(defn #^{:zen "Sometimes we will ask you to fill in the values"}
|
|
|
|
test-fill-in-values
|
|
|
|
[]
|
|
|
|
(assert (= __ (+ 1 1))))
|