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 ]