import io ; print, println import string ; strcat import util ; die!

assert_eq:

dup copy 2 sub jz _assert_eq_yes
push "expected " :print onum
push ", got " :print onum
push " for test " swap :strcat :die!

_assert_eq_yes: pop pop pop ret

assert_nz: jz _assert_nz_no pop ret _assert_nz_no: push “expected nonzero for test ” swap :strcat :die!