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 <- print 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 <- print screen, a
22   # move cursor to start of line
23   screen <- move-cursor screen, 0/row, 0/column
24   run [
25   ¦ screen <- clear-line screen
26   ]
27   screen-should-contain [
28   ¦ .     .
29   ¦ .     .
30   ¦ .     .
31   ]
32 ]
33 
34 scenario scroll-screen [
35   local-scope
36   assume-screen 3/width, 2/height
37   run [
38   ¦ a:char <- copy 97/a
39   ¦ move-cursor screen, 1/row, 2/column
40   ¦ screen <- print screen, a
41   ¦ screen <- print screen, a
42   ]
43   screen-should-contain [
44   ¦ .  a.
45   ¦ .a  .
46   ]
47 ]