summaryrefslogtreecommitdiffstats
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
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.
-rw-r--r--tests/007/except-3.expected1
-rw-r--r--tests/007/except-3.txr3
-rw-r--r--tests/007/except-4.expected1
-rw-r--r--tests/007/except-4.txr7
4 files changed, 12 insertions, 0 deletions
diff --git a/tests/007/except-3.expected b/tests/007/except-3.expected
new file mode 100644
index 00000000..257cc564
--- /dev/null
+++ b/tests/007/except-3.expected
@@ -0,0 +1 @@
+foo
diff --git a/tests/007/except-3.txr b/tests/007/except-3.txr
new file mode 100644
index 00000000..b2abc04e
--- /dev/null
+++ b/tests/007/except-3.txr
@@ -0,0 +1,3 @@
+@(next (open-command "echo foo; kill $$") :nothrow)
+@a
+@(do (put-line a))
diff --git a/tests/007/except-4.expected b/tests/007/except-4.expected
new file mode 100644
index 00000000..5716ca59
--- /dev/null
+++ b/tests/007/except-4.expected
@@ -0,0 +1 @@
+bar
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))