tests.hex
1 2 3 4 5 6 7 8 9 10 11 12
( "current-test" store (concurrent-test i 0x0 >) ("Test Failed: " print concurrent-test puts) unless (concurrent-test i 0x0 >) ("." print) when ) "test" store (0x1 "a1" store a1 0x1 == "a1" free) test i