From ee2ed19740ba6d8b5e61427a33f11c98584a5120 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 30 Aug 2022 08:08:27 -0700
Subject: txr: test for new @(next) behaviors.

* tests/018/noclose.txr: New file.

* tests/018.noclose.expected: New file.
---
 tests/018/noclose.expected |  1 +
 tests/018/noclose.txr      | 16 ++++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100644 tests/018/noclose.expected
 create mode 100644 tests/018/noclose.txr

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)
-- 
cgit v1.2.3