changeset 119:6cbea8ab65b6

wrote test case for write-memory skeleton
author Robert McIntyre <rlm@mit.edu>
date Fri, 16 Mar 2012 20:18:54 -0500
parents be4ec0e60c16
children d6f2a06cb128
files clojure/com/aurellem/assembly.clj
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/assembly.clj	Fri Mar 16 20:03:10 2012 -0500
     1.2 +++ b/clojure/com/aurellem/assembly.clj	Fri Mar 16 20:18:54 2012 -0500
     1.3 @@ -727,3 +727,10 @@
     1.4    (-> (tick (mid-game))
     1.5        (IE! 0) ; disable interrupts
     1.6        (inject-item-assembly (write-memory-assembly))))
     1.7 +
     1.8 +(defn test-write-memory []
     1.9 +  (set-state! (write-memory))
    1.10 +  (dorun
    1.11 +   (dotimes [_ 5000]
    1.12 +     (view-memory (step @current-state) current-mode))))
    1.13 +		
    1.14 \ No newline at end of file