Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-05-28 23:41:31 +00:00
Code Issues Projects Releases Wiki Activity

started register-test namespace, with storage-register-test

Browse Source
This commit is contained in:
Richard Harrington 2013-08-10 13:13:40 -04:00
parent 94cf5b3f47
commit 1424d47a4c
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/robotwar/register_test.clj Normal file
View File

@ -0,0 +1,18 @@
(ns robotwar.register-test
(:require [clojure.test :refer :all]
[robotwar.register :refer :all]
[robotwar.world :as world]))
(def world (world/init-world 256 256 [""]))
(def robot-path [:robots 0])
(def reg-path [:robots 0 :brain :registers])
(def registers (get-in world reg-path))
(deftest storage-register-test
(testing "can write and read to storage register's :val field"
(let [new-world (write-register (registers "A") world 42)
new-registers (get-in new-world reg-path)]
(is (= (read-register (new-registers "A") new-world)
42))
(is (= (get-in new-registers ["A" :val])
42)))))