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:
parent
1c6ceb899c
commit
9836cbff50
2 changed files with 123 additions and 37 deletions
|
|
@ -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")))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue