quick tests to capture the difference between simplify and simplify-one

This commit is contained in:
Paul deGrandis 2012-03-21 21:06:07 -04:00
parent 89256adf15
commit bd4d88a5d0

View file

@ -18,3 +18,11 @@
'(do [1 2 3]) '(do [1 2 3])
nil '(if (> 2 3) :one :two)))
(deftest simplify-deep
(is (= '(when (zero? 0) :one)
(:alt (kibit/simplify '(if (= 0 0) :one nil))))))
(deftest simplify-one
(is (= '(when (= 0 0) :one)
(:alt (kibit/simplify-one '(if (= 0 0) :one nil))))))