All tests pass. I should now be able to ditch the old parser and use the

new, but first I want to do some major code restructuring.
This commit is contained in:
simon 2016-08-10 19:23:16 +01:00
parent 1c6ceb899c
commit 9836cbff50
2 changed files with 123 additions and 37 deletions

View file

@ -436,12 +436,12 @@
"Addition is executed")))
(testing "Arithmetic action: addition of property value"
(let [afn (compile-rule "if state is climax then fertility should be fertility + leaf-fall")]
(let [afn (compile-rule "if state is climax then fertility should be fertility + leaffall")]
(is (= (:fertility
(apply afn
(list {:state :climax
:fertility 0
:leaf-fall 1} nil)))
:leaffall 1} nil)))
1)
"Addition is executed")))