Make all existing tests fail before input is added.

This commit is contained in:
Colin Jones 2011-02-08 15:57:15 -06:00
parent 6948ed6ec8
commit 21c911f0a4
4 changed files with 8 additions and 7 deletions

View File

@ -18,4 +18,4 @@
(== 2.0 2 __) (== 2.0 2 __)
"When things cannot be equal, they must be different" "When things cannot be equal, they must be different"
(not= nil __)) (not= :fill-in-the-blank __))

View File

@ -1,5 +1,6 @@
(defn is-even? [n] (defn is-even? [n]
(if (= n 0) __ (if (= n 0)
__
(___ (is-even? (dec n))))) (___ (is-even? (dec n)))))
(defn is-even-bigint? [n] (defn is-even-bigint? [n]
@ -33,7 +34,7 @@
(= 24 (factorial 4)) (= 24 (factorial 4))
"You can even deal with very large numbers" "You can even deal with very large numbers"
(= (factorial 1000N) (factorial 1000N)) (< 1000000000000000000000000N (factorial 1000N))
"But what happens when the machine limits you?" "But what happens when the machine limits you?"
(= (factorial 10000N) (factorial 10000N))) (< 1000000000000000000000000N (factorial 10000N)))

View File

@ -30,4 +30,4 @@
(= __ (subvec [:peanut :butter :and :jelly] 1 3)) (= __ (subvec [:peanut :butter :and :jelly] 1 3))
"Equality with collections is in terms of values" "Equality with collections is in terms of values"
(___ (list 1 2 3) (vector 1 2 3))) (= (list 1 2 3) (vector 1 2 __)))

View File

@ -30,8 +30,8 @@
:peanut :peanut
:jelly :jelly
:jelly :jelly
[:butter :and]] [:butter :and]
"___" ['=]} 3]}
"sets" {"__" [3 "sets" {"__" [3
#{1 2 3 4 5} #{1 2 3 4 5}
#{1 2 3 4 5} #{1 2 3 4 5}