blob: b4ac6e5e8f01ed5acb0f78dfc032ea448514130a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
# To check our support for screens in scenarios, rewrite tests from print.mu
scenario print-character-at-top-left-2 [
local-scope
assume-screen 3/width, 2/height
run [
a:char <- copy 97/a
screen <- print screen, a
]
screen-should-contain [
.a .
. .
]
]
scenario clear-line-erases-printed-characters-2 [
local-scope
assume-screen 5/width, 3/height
# print a character
a:char <- copy 97/a
screen <- print screen, a
# move cursor to start of line
screen <- move-cursor screen, 0/row, 0/column
run [
screen <- clear-line screen
]
screen-should-contain [
. .
. .
. .
]
]
scenario scroll-screen [
local-scope
assume-screen 3/width, 2/height
run [
a:char <- copy 97/a
move-cursor screen, 1/row, 2/column
screen <- print screen, a
screen <- print screen, a
]
screen-should-contain [
. a.
.a .
]
]
|