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
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 |
|
}
|
|
|