diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-02-28 07:15:18 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-02-28 10:35:41 -0800 |
commit | a14b74d2d383ce2c8694976da078da52199c0b37 (patch) | |
tree | d704a13120d72764ab21aea38b0f92d9e5a485f9 /tests/010/output-clauses.txr | |
parent | 1dcc39dbd54082af1e4c1cc9a2ca5ef30f2c4536 (diff) | |
download | txr-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.txr | 38 |
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) |