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