Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-06-27 08:29:28 +00:00
Code Issues Projects Releases Wiki Activity

added test to read-only test section of register-test

Browse Source 
new test checks to make sure the appropriate robot field
got written to.
This commit is contained in:
Richard Harrington 2013-08-10 14:40:10 -04:00
parent 99528fe9ba
commit 43125f0e26
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/robotwar/register_test.clj
View File

@ -46,7 +46,8 @@
(is (apply not= random-nums)))))
(deftest read-only-test
(testing "can read from read-only registers, but not write to them"
(testing "can read from read-only registers, but not write to them
(and also the robot fields don't get written to)"
(let [world1 (assoc-in world [:robots 0 :damage] 50)
registers1 (get-registers world1)
world2 (write-register (registers "DAMAGE") world1 25)
@ -54,4 +55,6 @@
(is (= (read-register (registers1 "DAMAGE") world1)
50))
(is (= (read-register (registers2 "DAMAGE") world2)
50))
(is (= (get-in world2 [:robots 0 :damage])
50)))))