tests.hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
0x0 "successes" store 0x0 "failures" store ( "current-test" store (current-test i) ( "." print successes 0x1 + "successes" store ) ( "x" print failures 0x1 + "failures" store ) if ) "test" store (0x1 "a1" store a1 0x1 == "a1" free) test i (0x1 0x2 ==) test i "\nSuccessful Tests: " print successes dec print "/" print successes failures + dec puts |