Mercurial > vba-clojure
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