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

added some informal tests to core.clj, to test exec/tick-robot

Browse Source
This commit is contained in:
Richard Harrington 2013-07-28 13:36:21 -04:00
parent 049abdc2c2
commit d1a25796cf
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/rw/core.clj
View File

@ -11,3 +11,10 @@
:registers nil
:program robot-program-test})
(def rc "AIM + 5 TO RADAR")
(def rp (create/compile rc))
(def rs (assoc-in (exec/init-robot rp) [:registers "AIM"] 6))
(def t0 (exec/tick-robot rs))
(def t1 (exec/tick-robot t0))
(def t3 (exec/tick-robot t1))