1 # To check our support for screens in scenarios, rewrite tests from print.mu
 2 
 3 scenario print-character-at-top-left-2 [
 4   local-scope
 5   assume-screen 3/width, 2/height
 6   run [
 7   ¦ a:char <- copy 97/a
 8   ¦ screen:&:screen <- print screen:&:screen, a
 9   ]
10   screen-should-contain [
11   ¦ .a  .
12   ¦ .   .
13   ]
14 ]
15 
16 scenario clear-line-erases-printed-characters-2 [
17   local-scope
18   assume-screen 5/width, 3/height
19   # print a character
20   a:char <- copy 97/a
21   screen:&:screen <- print screen:&:screen, a
22   # move cursor to start of line
23   screen:&:screen <- move-cursor screen:&:screen, 0/row, 0/column
24   run [
25   ¦ screen:&:screen <- clear-line screen:&:screen
26   ]
27   screen-should-contain [
28   ¦ .     .
29   ¦ .     .
30   ¦ .     .
31   ]
32 ]