From 65dc1f2196b46dbd527d49da113515bea825416d Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Tue, 26 Jun 2018 15:52:38 -0700 Subject: Cleaning up metaprogramming a bit and fixing/adding test for recursion control flow. --- tests/control_flow.nom | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'tests') 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." -- cgit v1.2.3