diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/event.test | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/tests/event.test b/tests/event.test index 44d6610..ce9e34d 100644 --- a/tests/event.test +++ b/tests/event.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: event.test,v 1.13 2001/07/31 19:12:07 vincentdarley Exp $ +# RCS: @(#) $Id: event.test,v 1.14 2001/12/10 20:30:13 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -276,6 +276,20 @@ test event-7.4 {tkerror is nothing special anymore to tcl} { set errRes } bg:err1 +test event-7.5 {correct behaviour when there is no bgerror [Bug 219142]} { + set script { + after 1000 error hello + after 2000 set a 0 + vwait a + } + + list [catch {exec [info nameofexecutable] << $script} errMsg] $errMsg +} {1 {hello + while executing +"error hello" + ("after" script)}} + + # someday : add a test checking that # when there is no bgerror, an error msg goes to stderr # ideally one would use sub interp and transfer a fake stderr |