From c399836c51bf8a284c9dda642aceb12fc8351496 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 20 Dec 2011 21:11:05 -0800 Subject: Test case for bug #35137 * tests/007/except-2.expected: New file. * tests/007/except-2.txr: New file. --- tests/007/except-2.expected | 3 +++ tests/007/except-2.txr | 19 +++++++++++++++++++ 2 files changed, 22 insertions(+) create mode 100644 tests/007/except-2.expected create mode 100644 tests/007/except-2.txr (limited to 'tests/007') diff --git a/tests/007/except-2.expected b/tests/007/except-2.expected new file mode 100644 index 00000000..08377edd --- /dev/null +++ b/tests/007/except-2.expected @@ -0,0 +1,3 @@ +caught a +cleanup +caught b diff --git a/tests/007/except-2.txr b/tests/007/except-2.txr new file mode 100644 index 00000000..b18f6c1c --- /dev/null +++ b/tests/007/except-2.txr @@ -0,0 +1,19 @@ +@(try) +@(try) +@(bind a "b") +@(throw e "a") +@(catch e (x)) +@(output) +caught @x +@(end) +@(throw e "b") +@(finally) +@(output) +cleanup +@(end) +@(end) +@(catch e (x)) +@(output) +caught @x +@(end) +@(end) -- cgit v1.2.3