blob: fa1a026c7ac740acdfa9615e192fc5c5cfff136d (
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
|
# To check our support for screens in scenarios, rewrite tests from print.mu
scenario print-character-at-top-left2 [
assume-screen 3:literal/width, 2:literal/height
run [
screen:address <- print-character screen:address, 97:literal # 'a'
]
screen-should-contain [
.a .
. .
]
]
scenario clear-line-erases-printed-characters2 [
assume-screen 5:literal/width, 3:literal/height
run [
# print a character
screen:address <- print-character screen:address, 97:literal # 'a'
# move cursor to start of line
screen:address <- move-cursor screen:address, 0:literal/row, 0:literal/column
# clear line
screen:address <- clear-line screen:address
]
screen-should-contain [
. .
. .
. .
]
]
|