Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

43 lines
1.3 KiB

# 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, ".", 3/fg=cyan, 0/bg
return
}
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, msg, 3/fg=cyan, 0/bg
move-cursor-to-left-margin-of-next-line 0/screen
count-test-failure
}
fn test-check-ints-equal {
check-ints-equal 0, 0, "abc"
}
fn check _a: boolean, msg: (addr array byte) {
var a/eax: int <- copy _a
compare a, 0/false
{
break-if-=
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, ".", 3/fg=cyan, 0/bg
return
}
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, msg, 3/fg=cyan, 0/bg
move-cursor-to-left-margin-of-next-line 0/screen
count-test-failure
}
fn check-not _a: boolean, msg: (addr array byte) {
var a/eax: int <- copy _a
compare a, 0/false
{
break-if-!=
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, ".", 3/fg=cyan, 0/bg
return
}
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, msg, 3/fg=cyan, 0/bg
move-cursor-to-left-margin-of-next-line 0/screen
count-test-failure
}