nomsu/lib/testing.nom

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
Another overhaul, this time pulling all the chunks of the core lib into their own files. 2017-09-21 00:10:26 -07:00			`require "lib/metaprogramming.nom"`

			`# For unit testing`
Updated to undo some of the block/thunk stuff. Thunks are thunks, and expressions can be grouped with parens, and they have a clear distinction. 2017-10-02 17:21:22 -07:00			`rule [test tree %generated == %expected] =:`
Another overhaul, this time pulling all the chunks of the core lib into their own files. 2017-09-21 00:10:26 -07:00			`if (%generated != %expected):`
Updated to undo some of the block/thunk stuff. Thunks are thunks, and expressions can be grouped with parens, and they have a clear distinction. 2017-10-02 17:21:22 -07:00			`error ".."`
			`\|Test Failed!`
			`\|Expected:`
			`\|\(%expected)`
			`\|But got:`
			`\|\(%generated)`
			`parse [test %code yields %expected] as:`
			`test tree (nomsu "tree_to_str" [\%code]) == %expected`