14 lines
373 B
Plaintext
14 lines
373 B
Plaintext
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
|