From 14ef1bd3f5a544a197c5404ca8cde6f8fa216c42 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 7 Aug 2021 12:29:36 -0700 Subject: 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. --- tests/007/except-3.expected | 1 + tests/007/except-3.txr | 3 +++ tests/007/except-4.expected | 1 + tests/007/except-4.txr | 7 +++++++ 4 files changed, 12 insertions(+) create mode 100644 tests/007/except-3.expected create mode 100644 tests/007/except-3.txr create mode 100644 tests/007/except-4.expected create mode 100644 tests/007/except-4.txr 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)) -- cgit v1.2.3