mu/baremetal/502test.mu

20 lines
500 B
Forth
Raw Normal View History

# print msg to screen if a != b, otherwise print "."
fn check-ints-equal _a: int, b: int, msg: (addr array byte) {
var a/eax: int <- copy _a
compare a, b
{
break-if-=
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, msg, 3/fg/cyan, 0/bg
count-test-failure
2021-01-14 21:37:28 +00:00
return
}
{
break-if-!=
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, ".", 3/fg/cyan, 0/bg
}
}
fn test-check-ints-equal {
check-ints-equal 0, 0, "abc"
}