summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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))