diff options
| author | sebres <sebres@users.sourceforge.net> | 2022-04-26 12:03:22 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2022-04-26 12:03:22 (GMT) |
| commit | 5f9e047cf5d7f3adca4154b75cf8f68325330af8 (patch) | |
| tree | 7d2faf890b66f19add0548b3fd0a204a1c8a29bf /tests/error.test | |
| parent | d23bb9578a50e42f1052a160d4abcc57ce29dd85 (diff) | |
| download | tcl-5f9e047cf5d7f3adca4154b75cf8f68325330af8.zip tcl-5f9e047cf5d7f3adca4154b75cf8f68325330af8.tar.gz tcl-5f9e047cf5d7f3adca4154b75cf8f68325330af8.tar.bz2 | |
added test illustrating bug [27520c9b17]
Diffstat (limited to 'tests/error.test')
| -rw-r--r-- | tests/error.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/error.test b/tests/error.test index af07ed7..08bd00c 100644 --- a/tests/error.test +++ b/tests/error.test @@ -351,6 +351,13 @@ test error-9.4 {try (ok, non-empty result) with on handler} { test error-9.5 {try (ok, non-empty result) with on ok handler} { try { list a b c } on ok {} { list d e f } } {d e f} +test error-9.6 {try (compilation of simple finaly token only, bug [27520c9b17])} -body { + set b {}; set l {} + try {lappend l error} finally [lappend l set b] + list $l $b +} -cleanup { + unset -nocomplain b l +} -result {{set b error} {}} # simple try tests - "on" handler matching |