simon/mw-engine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Considerable refactoring based on the new map-world utility function.

Browse source
This commit is contained in:
Simon Brooke 2014-07-25 11:49:50 +01:00
parent 4949e30f69
commit 75475ece29
5 changed files with 51 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test/mw_engine/utils_test.clj
View file

@ -143,4 +143,19 @@
(range 0 3)))))
"General sanity test")
)))
(deftest map-world-test
(testing "map-world utility function"
(let [w1a (make-world 3 3)
w2b (map-world w1a #(merge %2 {:test true}))
w3c (map-world w2b #(merge %2 {:number (+ %3 %4)}) '(4 4))]
(is (= (count w1a) (count w3c)) "No change in world size")
(is (= (count (flatten w1a)) (count (flatten w3c)))
"No change in world size")
(is (empty? (remove true? (map #(:test %) (flatten w3c))))
"All cells should have property 'test' set to true")
(is (empty? (remove #(= % 8) (map #(:number %) (flatten w3c))))
"All cells should have property 'number' set to 8"))))