34 lines
1.1 KiB
Perl
34 lines
1.1 KiB
Perl
(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
|