lib/testing.nom


1
2
3
4
5
6
7
8
9
10
11
12
13
14

require "lib/metaprogramming.nom"

# For unit testing
macro block [test %code yields %expected] =:
    %generated =: repr (nomsu "stringify_tree" [%code's "value"])
    %expected =: %expected as lua
    if (%generated != %expected):
        say "Test failed!"
        say "Expected:"
        say %expected
        say "But got:"
        say %generated
        error!
    return ""