all repos — hex @ ca765f7c2550b7594b8819b0f9f823c8b452e49d

A tiny, minimalist, slightly-esoteric concatenative programming lannguage.

tests.hex

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 
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

; --- Tests
(0x1 "a" store a 0x1 ==) test i

; --- Report
"\nSuccessful Tests: " print successes dec print "/" print successes failures + dec puts

; --- Cleanup
"a" free