lib/testing.nom


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

require "lib/metaprogramming.nom"

# For unit testing
rule [test tree %generated == %expected] =:
    if (%generated != %expected):
        error ".."
            Test Failed!
            Expected:
            \(%expected)
            But got:
            \(%generated)
parse [test %code yields %expected] as:
    test tree (nomsu "tree_to_str" [\%code]) == %expected