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 | |
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')
-rw-r--r-- | tests/010/output-clauses.expected | 40 | ||||
-rw-r--r-- | tests/010/output-clauses.txr | 38 |
2 files changed, 78 insertions, 0 deletions
diff --git a/tests/010/output-clauses.expected b/tests/010/output-clauses.expected new file mode 100644 index 00000000..efcf9bc0 --- /dev/null +++ b/tests/010/output-clauses.expected @@ -0,0 +1,40 @@ +counter:0:A + empty +counter:0:B + empty +counter:1:A + first:zero + oddlast:one +counter:1:B + first:zero + last:one +counter:2:A + first:zero + odd:one + evenlast:two +counter:2:B + first:zero + odd:one + last:two +counter:3:A + first:zero + odd:one + even:two + oddlast:three +counter:3:B + first:zero + odd:one + even:two + last:three +counter:4:A + first:zero + odd:one + even:two + odd:three + evenlast:four +counter:4:B + first:zero + odd:one + even:two + odd:three + last:four 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) |