1 files changed, 33 insertions, 0 deletions
diff --git a/archive/1.vm.arc/edit.arc.t b/archive/1.vm.arc/edit.arc.t
new file mode 100644
index 00000000..ff039602
--- /dev/null
+++ b/archive/1.vm.arc/edit.arc.t
@@ -0,0 +1,33 @@
+(selective-load "mu.arc" section-level)
+(set allow-raw-addresses*)
+
+(section 100
+
+(reset)
+(new-trace "new-screen")
+(add-code:readfile "edit.mu")
+(add-code
+  '((function test-new-screen [
+      (1:screen-address/global <- new-screen 5:literal 5:literal)
+     ])))
+;? (each stmt function*!new-screen
+;?   (prn stmt))
+(let routine make-routine!test-new-screen
+  (let before rep.routine!alloc
+;?     (= dump-trace* (obj blacklist '("sz" "m" "setm" "addr" "cvt0" "cvt1")))
+    (run 'test-new-screen)
+;?     (prn memory*)
+;?     (prn memory*.2001)
+    (when (~is (memory* memory*.1) 5)  ; number of rows
+      (prn "F - newly-allocated screen doesn't have the right number of rows: @(memory* memory*!2001)"))
+    (let row-pointers (let base (+ 1 memory*.1)
+                        (range base (+ base 4)))
+  ;?     (prn row-pointers)
+      (when (some nil (map memory* row-pointers))
+        (prn "F - newly-allocated screen didn't initialize all of its row pointers"))
+      (when (~all 5 (map memory* (map memory* row-pointers)))
+        (prn "F - newly-allocated screen didn't initialize all of its row lengths")))))
+
+(reset)
+
+)  ; section 100 for all editor code