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

Preparation to work client-side.

Browse source
This commit is contained in:
simon 2016-12-27 14:32:23 +00:00
parent 6237eab0cd
commit b9ee9d138a
5 changed files with 29 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/microworld/engine/heightmap_test.clj
View file

@ -7,7 +7,7 @@
(deftest apply-heightmap-test
(testing "Heightmap functionality"
(let [world (apply-heightmap (as-file "resources/heightmaps/test9x9.png"))
(let [world (apply-heightmap "heightmaps/test9x9.png")
altitudes (map #(:altitude %) (flatten world))
gradients (map #(:gradient %) (flatten world))]
(is (= (count world) 9) "World should be 9x9")
@ -22,7 +22,7 @@
(is (> (apply + gradients) 0)
"At least some gradients must be positive, none should be negative"))
;; alternate means of making the world, same tests.
(let [world (apply-heightmap (world/make-world 9 9) (as-file "resources/heightmaps/test9x9.png"))
(let [world (apply-heightmap (world/make-world 9 9) "heightmaps/test9x9.png")
altitudes (map #(:altitude %) (flatten world))
gradients (map #(:gradient %) (flatten world))]
(is (= (count world) 9) "World should be 9x9")
@ -42,7 +42,7 @@
(deftest apply-valuemap-test
(testing "Valuemap functionality"
(let [image (as-file "resources/heightmaps/test9x9.png")
(let [image "heightmaps/test9x9.png"
world (apply-valuemap (apply-heightmap image) image :arbitrary)
altitudes (map #(:altitude %) (flatten world))
arbitraries (map #(:arbitrary %) (flatten world))]