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

added random-test to register-test

Browse Source
This commit is contained in:
Richard Harrington 2013-08-10 13:41:42 -04:00
parent 9e61c987c3
commit 0b007c9b53
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
test/robotwar/register_test.clj
View File

@ -17,10 +17,6 @@
(is (= (get-in new-registers ["A" :val])
42)))))
(deftest index-data-pair-test
(testing "registers whose index numbers are push to INDEX can
be referenced by accessing DATA"
@ -35,14 +31,15 @@
(is (= (read-register (registers3 "A") world3)
100)))))
(deftest random-test
(testing "write to random register's :val field,
and read a series of numbers all different
from random register"
(let [new-world (write-register (registers "RANDOM") world 1000)
new-registers (get-in new-world reg-path)
random-nums (repeatedly 5 (partial read-register (new-registers "RANDOM") new-world))]
(is (= (get-in new-registers ["RANDOM" :val])
1000))
(is (every? #(< -1 % 1000) random-nums))
(is (apply not= random-nums)))))
;(deftest random-test
; (testing "push to random register and pull a series of numbers all different
; from random register"
; (let [random-register (get-in initial-multi-use-robot [:brain :registers "RANDOM"])
; new-world (register/write-register random-register initial-multi-use-world 1000)
; random-nums (repeatedly 5 (partial register/read-register random-register new-world))]
; (is (= (get-in new-world [:robots 0 :brain :registers "RANDOM" :val])
; 1000))
; (is (every? #(< -1 % 1000) random-nums)))))
;