quick tests to capture the difference between simplify and simplify-one
This commit is contained in:
parent
89256adf15
commit
bd4d88a5d0
1 changed files with 8 additions and 0 deletions
|
@ -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))))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue