diff options
| author | Bruce Hill <bitbucket@bruce-hill.com> | 2018-06-26 15:52:38 -0700 |
|---|---|---|
| committer | Bruce Hill <bitbucket@bruce-hill.com> | 2018-06-26 15:53:00 -0700 |
| commit | 65dc1f2196b46dbd527d49da113515bea825416d (patch) | |
| tree | 02dbbe6528dc9c4a1e71a522da624a08f1179d64 /tests | |
| parent | 42578872c72ec46b256a093f74482fb6e5b8e4b9 (diff) | |
Cleaning up metaprogramming a bit and fixing/adding test for recursion
control flow.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/control_flow.nom | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/control_flow.nom b/tests/control_flow.nom index 939d5ee..340bd7d 100644 --- a/tests/control_flow.nom +++ b/tests/control_flow.nom @@ -179,4 +179,13 @@ assume ..= 6 ..or barf "'result of %' failed" + +%t <- [1,[2,[[3],4],5,[[[6]]]]] +%flat <- [] +for % in recursive %t + if: (type of %) is "table" + for %2 in %: recurse % on %2 + ..else: add % to %flat +assume: (sorted %flat) = [1,2,3,4,5,6] + say "Control flow test passed." |