diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-08-30 08:08:27 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-08-30 08:08:27 -0700 |
| commit | ee2ed19740ba6d8b5e61427a33f11c98584a5120 (patch) | |
| tree | 2d09249dfacab2321407813277536144ce7a474a | |
| parent | 5fb7962b3b54cbd140104b254c6c2e3019fb9d8d (diff) | |
| download | txr-ee2ed19740ba6d8b5e61427a33f11c98584a5120.tar.gz txr-ee2ed19740ba6d8b5e61427a33f11c98584a5120.tar.bz2 txr-ee2ed19740ba6d8b5e61427a33f11c98584a5120.zip | |
txr: test for new @(next) behaviors.
* tests/018/noclose.txr: New file.
* tests/018.noclose.expected: New file.
| -rw-r--r-- | tests/018/noclose.expected | 1 | ||||
| -rw-r--r-- | tests/018/noclose.txr | 16 |
2 files changed, 17 insertions, 0 deletions
diff --git a/tests/018/noclose.expected b/tests/018/noclose.expected new file mode 100644 index 00000000..cad99e12 --- /dev/null +++ b/tests/018/noclose.expected @@ -0,0 +1 @@ +caught diff --git a/tests/018/noclose.txr b/tests/018/noclose.txr new file mode 100644 index 00000000..cf39b702 --- /dev/null +++ b/tests/018/noclose.txr @@ -0,0 +1,16 @@ +@(next :list [mapcar tostring (range 1 20000)]) +@(collect) +@num +@(next self-path) +@line +@(end) +@(try) +@(next :list [mapcar tostring (range 1 20000)]) +@(collect) +@num +@(next "data") +@line +@(end) +@(catch) +@(do (put-line "caught")) +@(end) |