mu/linux/401test.mu

12 lines
259 B
Forth
Raw Permalink Normal View History

2020-07-31 02:34:29 +00:00
# Some helpers for Mu tests.
fn check val: boolean, msg: (addr array byte) {
2020-07-31 02:34:29 +00:00
var tmp/eax: int <- copy val
check-ints-equal tmp, 1, msg
}
fn check-not val: boolean, msg: (addr array byte) {
2020-07-31 02:34:29 +00:00
var tmp/eax: int <- copy val
check-ints-equal tmp, 0, msg
}