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

Added merge-cell, and tests for it. Still trying to solve the Falls of Clyde

Browse source 
problem
This commit is contained in:
Simon Brooke 2015-04-12 19:34:19 +01:00
parent 6b3f8730a6
commit 1c8d8c4219
5 changed files with 50 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/mw_engine/utils_test.clj
View file

@ -164,6 +164,18 @@
"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"))))
(deftest merge-cell-test
(testing "merge-cell utility function"
(let [w1a (make-world 3 3)
w2b (merge-cell w1a {:x 5 :y 5 :out-of-bounds true})
w3c (merge-cell w1a {:x 2 :y 2 :test true})]
(is (= w1a w2b) "Out of bound cell makes no difference")
(is (empty? (filter #(:out-of-bounds %) (flatten w2b)))
"No cell has :out-of-bounds set")
(is (= 1 (count (filter #(:test %) (flatten w3c))))
"Exactly one cell has :test set")
(is (:test (get-cell w3c 2 2))
"The cell with :test set is at 2, 2"))))