diff options
author | msofer <msofer@noemail.net> | 2002-03-23 01:39:55 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2002-03-23 01:39:55 (GMT) |
commit | 6393b8117ff90cb65bd9a34cf4245083883bdc4b (patch) | |
tree | 17c3432f68e21fe0054e655744d2e8219c76d96f /tests/basic.test | |
parent | 6fb979c4e7984a453118ea2de5c5297fa7854a0b (diff) | |
download | tcl-6393b8117ff90cb65bd9a34cf4245083883bdc4b.zip tcl-6393b8117ff90cb65bd9a34cf4245083883bdc4b.tar.gz tcl-6393b8117ff90cb65bd9a34cf4245083883bdc4b.tar.bz2 |
adding test for [Bug 533758], fixed earlier today.
FossilOrigin-Name: 55e85350ecb2aade1f6666a0b76176dd59b7f4f6
Diffstat (limited to 'tests/basic.test')
-rw-r--r-- | tests/basic.test | 28 |
1 files changed, 25 insertions, 3 deletions
diff --git a/tests/basic.test b/tests/basic.test index 70472a8..4aee121 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -15,7 +15,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: basic.test,v 1.15 2002/02/10 20:36:34 kennykb Exp $ +# RCS: @(#) $Id: basic.test,v 1.16 2002/03/23 01:39:57 msofer Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -558,8 +558,30 @@ test basic-44.1 {Tcl_GlobalEval} {emptyTest} { test basic-45.1 {Tcl_SetRecursionLimit: see interp.test} {emptyTest} { } {} -test basic-46.1 {Tcl_AllowExceptions} {emptyTest} { -} {} +test basic-46.1 {Tcl_AllowExceptions: exception return not allowed} { + catch {close $f} + set res [catch { + set f [open |[info nameofexecutable] w+] + fconfigure $f -buffering line + puts $f {fconfigure stdout -buffering line} + puts $f continue + puts $f {puts $errorInfo} + puts $f {puts DONE} + set newMsg {} + set msg {} + while {$newMsg != "DONE"} { + set newMsg [gets $f] + append msg "${newMsg}\n" + } + close $f + }] + list $res $msg +} {1 {invoked "continue" outside of a loop + while executing +"continue +" +DONE +}} # cleanup catch {eval namespace delete [namespace children :: test_ns_*]} |