Test_Case

One test for run_tests: a name to print and a procedure to run. The procedure makes its checks with the expect_ calls; a failed one is printed and counted, and the test goes on.

check_math :: () {
    expect_equal(1 + 1, 2, "addition");
}

main :: () {
    run_tests(.[.{ name = "math", run = check_math }]);
}