diff options
author | Kartik Agaram <vc@akkartik.com> | 2021-01-16 20:56:28 -0800 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2021-01-16 20:56:28 -0800 |
commit | 9822a2429f549491b1c7dfa4035260bb6c44ff77 (patch) | |
tree | 96a91da494e51463e04da5808cbbfc0218bbdabc /baremetal/504test-screen.mu | |
parent | aa6c50d2bc62336fbdec06f7cb919c1656c332cf (diff) | |
download | mu-9822a2429f549491b1c7dfa4035260bb6c44ff77.tar.gz |
7533
Both issues of commit 7531 fixed.
Diffstat (limited to 'baremetal/504test-screen.mu')
-rw-r--r-- | baremetal/504test-screen.mu | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/baremetal/504test-screen.mu b/baremetal/504test-screen.mu index 428d172c..db8f9eea 100644 --- a/baremetal/504test-screen.mu +++ b/baremetal/504test-screen.mu @@ -42,12 +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 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 draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, "'", 3 } idx <- increment @@ -106,12 +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 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 draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0, "'", 3 } $check-screen-row-in-color-from:compare-colors: { @@ -126,6 +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 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 |