diff options
Diffstat (limited to 'tests/018/noclose.txr')
| -rw-r--r-- | tests/018/noclose.txr | 16 |
1 files changed, 16 insertions, 0 deletions
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) |