summaryrefslogtreecommitdiffstats
path: root/tests/007/except-4.txr
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-08-07 12:29:36 -0700
committerKaz Kylheku <kaz@kylheku.com>2021-08-07 12:29:36 -0700
commit14ef1bd3f5a544a197c5404ca8cde6f8fa216c42 (patch)
tree495c718eed950b0a8ac3c1664e6473009bc8b44b /tests/007/except-4.txr
parent3dbfba97e2de24f18d041dde6615e36f9d3a6327 (diff)
downloadtxr-14ef1bd3f5a544a197c5404ca8cde6f8fa216c42.tar.gz
txr-14ef1bd3f5a544a197c5404ca8cde6f8fa216c42.tar.bz2
txr-14ef1bd3f5a544a197c5404ca8cde6f8fa216c42.zip
txr: add tests for :nothrow handling process death.
* tests/007/except-3.txr: New file. * tests/007/except-3.expected: Likewise. * tests/007/except-4.txr: Likewise. * tests/007/except-4.expected: Likewise.
Diffstat (limited to 'tests/007/except-4.txr')
-rw-r--r--tests/007/except-4.txr7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/007/except-4.txr b/tests/007/except-4.txr
new file mode 100644
index 00000000..0f87a706
--- /dev/null
+++ b/tests/007/except-4.txr
@@ -0,0 +1,7 @@
+@(try)
+@(next (open-command "echo foo; kill $$"))
+@a
+@(catch)
+@(bind a "bar")
+@(end)
+@(do (put-line a))