diff options
-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)) |