diff options
author | Kartik Agaram <vc@akkartik.com> | 2021-01-17 10:49:23 -0800 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2021-01-17 10:49:23 -0800 |
commit | c5b573cf83b8848657ae86be40ba3b1ec24c6813 (patch) | |
tree | 2a21109457d3f32c581d35b7b7d96b6a33d3fcf6 /baremetal/504test-screen.mu | |
parent | 851959ccc6d728b9a6fa02ff42d170cbebd272bb (diff) | |
download | mu-c5b573cf83b8848657ae86be40ba3b1ec24c6813.tar.gz |
7535
Diffstat (limited to 'baremetal/504test-screen.mu')
-rw-r--r-- | baremetal/504test-screen.mu | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/baremetal/504test-screen.mu b/baremetal/504test-screen.mu index db8f9eea..6de1edee 100644 --- a/baremetal/504test-screen.mu +++ b/baremetal/504test-screen.mu @@ -42,14 +42,14 @@ fn check-screen-row-from screen-on-stack: (addr screen), x: int, y: int, expecte draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, msg, 3 # 3=cyan draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, ": expected '", 3 draw-grapheme-at-cursor 0, expected-grapheme, 3 - move-cursor-rightward-and-downward 0, 0, 0x400 + move-cursor-rightward-and-downward 0, 0, 0x400 # screen-width draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, "' at (", 3 draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0, x, 3 draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, ", ", 3 draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0, y, 3 draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, ") but observed '", 3 draw-grapheme-at-cursor 0, g, 3 - move-cursor-rightward-and-downward 0, 0, 0x400 + move-cursor-rightward-and-downward 0, 0, 0x400 # screen-width draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, "'", 3 } idx <- increment @@ -108,14 +108,14 @@ fn check-screen-row-in-color-from screen-on-stack: (addr screen), fg: int, y: in draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, msg, 3 # 3=cyan draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, ": expected '", 3 draw-grapheme-at-cursor 0, expected-grapheme, 3 - move-cursor-rightward-and-downward 0, 0, 0x400 + move-cursor-rightward-and-downward 0, 0, 0x400 # screen-width draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, "' at (", 3 draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0, x, 3 draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, ", ", 3 draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0, y, 3 draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, ") but observed '", 3 draw-grapheme-at-cursor 0, g, 3 - move-cursor-rightward-and-downward 0, 0, 0x400 + move-cursor-rightward-and-downward 0, 0, 0x400 # screen-width draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, "'", 3 } $check-screen-row-in-color-from:compare-colors: { @@ -130,7 +130,7 @@ fn check-screen-row-in-color-from screen-on-stack: (addr screen), fg: int, y: in draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, msg, 3 # 3=cyan draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, ": expected '", 3 draw-grapheme-at-cursor 0, expected-grapheme, 3 - move-cursor-rightward-and-downward 0, 0, 0x400 + move-cursor-rightward-and-downward 0, 0, 0x400 # screen-width draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, "' at (", 3 draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen 0, x, 3 draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, ", ", 3 |