summaryrefslogtreecommitdiffstats
path: root/tests/010/output-clauses.txr
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2014-02-28 07:15:18 -0800
committerKaz Kylheku <kaz@kylheku.com>2014-02-28 10:35:41 -0800
commita14b74d2d383ce2c8694976da078da52199c0b37 (patch)
treed704a13120d72764ab21aea38b0f92d9e5a485f9 /tests/010/output-clauses.txr
parent1dcc39dbd54082af1e4c1cc9a2ca5ef30f2c4536 (diff)
downloadtxr-a14b74d2d383ce2c8694976da078da52199c0b37.tar.gz
txr-a14b74d2d383ce2c8694976da078da52199c0b37.tar.bz2
txr-a14b74d2d383ce2c8694976da078da52199c0b37.zip
* tests/010/output-clauses.expected: New file.
* tests/010/output-clauses.txr: New file.
Diffstat (limited to 'tests/010/output-clauses.txr')
-rw-r--r--tests/010/output-clauses.txr38
1 files changed, 38 insertions, 0 deletions
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)