From a14b74d2d383ce2c8694976da078da52199c0b37 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 28 Feb 2014 07:15:18 -0800 Subject: * tests/010/output-clauses.expected: New file. * tests/010/output-clauses.txr: New file. --- tests/010/output-clauses.txr | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 tests/010/output-clauses.txr (limited to 'tests/010/output-clauses.txr') diff --git a/tests/010/output-clauses.txr b/tests/010/output-clauses.txr new file mode 100644 index 00000000..02a04c41 --- /dev/null +++ b/tests/010/output-clauses.txr @@ -0,0 +1,38 @@ +@(bind l ("zero" "one" "two" "three" "four")) +@(bind a (@[l 0..0] @[l 0..2] @[l 0..3] @[l 0..4] @[l 0..5])) +@(output) +@(repeat :counter i) +counter:@i:A +@(repeat) + main:@a +@(first) + first:@a +@(mod 1 2) + odd:@a +@(mod 0 2) + even:@a +@(last) + last:@a +@(modlast 1 2) + oddlast:@a +@(modlast 0 2) + evenlast:@a +@(empty) + empty +@(end) +counter:@i:B +@(repeat) + main:@a +@(first) + first:@a +@(mod 1 2) + odd:@a +@(mod 0 2) + even:@a +@(last) + last:@a +@(empty) + empty +@(end) +@(end) +@(end) -- cgit v1.2.3