diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2011-12-20 21:11:05 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2011-12-20 21:11:05 -0800 |
| commit | c399836c51bf8a284c9dda642aceb12fc8351496 (patch) | |
| tree | 98f91507ed48cc5781eddd159dfd002d7f206ac6 /tests/007/except-2.txr | |
| parent | b375fdbbbb9c18cc0da0ce9c15d9985e89a50d8f (diff) | |
| download | txr-c399836c51bf8a284c9dda642aceb12fc8351496.tar.gz txr-c399836c51bf8a284c9dda642aceb12fc8351496.tar.bz2 txr-c399836c51bf8a284c9dda642aceb12fc8351496.zip | |
Test case for bug #35137
* tests/007/except-2.expected: New file.
* tests/007/except-2.txr: New file.
Diffstat (limited to 'tests/007/except-2.txr')
| -rw-r--r-- | tests/007/except-2.txr | 19 |
1 files changed, 19 insertions, 0 deletions
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) |