# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1331947134 18000
# Node ID 6cbea8ab65b69bf7c27cec3efe078e6492f5d8cf
# Parent  be4ec0e60c1647ee3cef54f63f55f608e687dd02
wrote test case for write-memory skeleton

diff -r be4ec0e60c16 -r 6cbea8ab65b6 clojure/com/aurellem/assembly.clj
--- a/clojure/com/aurellem/assembly.clj	Fri Mar 16 20:03:10 2012 -0500
+++ b/clojure/com/aurellem/assembly.clj	Fri Mar 16 20:18:54 2012 -0500
@@ -727,3 +727,10 @@
   (-> (tick (mid-game))
       (IE! 0) ; disable interrupts
       (inject-item-assembly (write-memory-assembly))))
+
+(defn test-write-memory []
+  (set-state! (write-memory))
+  (dorun
+   (dotimes [_ 5000]
+     (view-memory (step @current-state) current-mode))))
+		
\ No newline at end of file