diff options
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rw-r--r-- | tests/007/except-2.expected | 3 | ||||
| -rw-r--r-- | tests/007/except-2.txr | 19 |
3 files changed, 30 insertions, 0 deletions
@@ -1,5 +1,13 @@ 2011-12-20 Kaz Kylheku <kaz@kylheku.com> + Test case for bug #35137 + + * tests/007/except-2.expected: New file. + + * tests/007/except-2.txr: New file. + +2011-12-20 Kaz Kylheku <kaz@kylheku.com> + * eval.c (eval_init): New function registered. * lib.c (cat_vec): New function. 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) |