Executing flows now works.
This commit is contained in:
parent
5ef93ef4df
commit
f60fdb944b
2 changed files with 5 additions and 5 deletions
|
|
@ -37,7 +37,7 @@
|
|||
:property :q
|
||||
:quantity 2.4}]
|
||||
(is (flow? valid world))
|
||||
(let [transferred (execute valid world')
|
||||
(let [transferred (execute world' valid)
|
||||
source-q (:q (get-cell transferred 0 0))
|
||||
dest-q (:q (get-cell transferred 1 1))]
|
||||
(is (= source-q 2.9))
|
||||
|
|
@ -46,7 +46,7 @@
|
|||
:destination {:x 0 :y 1}
|
||||
:property :q
|
||||
:quantity 1}
|
||||
transferred (execute-flows (list valid valid2) world')
|
||||
transferred (execute-flows world' (list valid valid2))
|
||||
source-q (:q (get-cell transferred 0 0))
|
||||
inter-q (:q (get-cell transferred 1 1))
|
||||
dest-q (:q (get-cell transferred 0 1))]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue