diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-08-07 12:29:36 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-08-07 12:29:36 -0700 |
commit | 14ef1bd3f5a544a197c5404ca8cde6f8fa216c42 (patch) | |
tree | 495c718eed950b0a8ac3c1664e6473009bc8b44b | |
parent | 3dbfba97e2de24f18d041dde6615e36f9d3a6327 (diff) | |
download | txr-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.expected | 1 | ||||
-rw-r--r-- | tests/007/except-3.txr | 3 | ||||
-rw-r--r-- | tests/007/except-4.expected | 1 | ||||
-rw-r--r-- | tests/007/except-4.txr | 7 |
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)) |