diff options
| author | Bruce Hill <bitbucket@bruce-hill.com> | 2018-06-12 20:06:33 -0700 |
|---|---|---|
| committer | Bruce Hill <bitbucket@bruce-hill.com> | 2018-06-12 20:06:37 -0700 |
| commit | 63a19db0dc817d2929d8ef4bf12a15d5e9dbd015 (patch) | |
| tree | f0067a6fabf270bfdc65ee742d1f1ad80ff57ba9 /tests | |
| parent | b0997a7dbffb636b8209055ed788fe1360aef25d (diff) | |
Working version.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/metaprogramming.nom | 7 | ||||
| -rw-r--r-- | tests/scopes.nom | 12 |
2 files changed, 10 insertions, 9 deletions
diff --git a/tests/metaprogramming.nom b/tests/metaprogramming.nom index a31d030..a7a61d4 100644 --- a/tests/metaprogramming.nom +++ b/tests/metaprogramming.nom @@ -49,9 +49,10 @@ assume ((%1 = 2) and (%2 = 1)) or barf "'parse % as %' failed on 'swap % and %'" swap %tmp and %tmp2 assume ((%tmp = 2) and (%tmp2 = 1)) or barf "'parse % as %' variable mangling failed." -remove action (foo %) -try: foo 99 -..and if it succeeds: barf "Failed to delete action" +# + remove action (foo %) + try: foo 99 + ..and if it succeeds: barf "Failed to delete action" assume ((\(5 + 5) as value) = 10) or barf "%tree as value failed." diff --git a/tests/scopes.nom b/tests/scopes.nom index 80791a5..d3a2eb9 100644 --- a/tests/scopes.nom +++ b/tests/scopes.nom @@ -15,11 +15,11 @@ using action [baz] return "outer" -using - action [baz] - return "inner" -..do - assume: (baz) = "inner" -assume: (baz) = "outer" +# + do + local action [baz] + return "inner" + assume: (baz) = "inner" + assume: (baz) = "outer" say "Scopes test passed." |