diff options
author | Miguel Sofer <miguel.sofer@gmail.com> | 2001-12-10 20:30:11 (GMT) |
---|---|---|
committer | Miguel Sofer <miguel.sofer@gmail.com> | 2001-12-10 20:30:11 (GMT) |
commit | cdedbaef562cec652a7bbfa9faf73a5ba885facc (patch) | |
tree | f55ebfdc6e69dc8e379506c97f4f0887adcdad7c /tests/event.test | |
parent | 2509c4647a862758676661f35e5e16d3e08ca162 (diff) | |
download | tcl-cdedbaef562cec652a7bbfa9faf73a5ba885facc.zip tcl-cdedbaef562cec652a7bbfa9faf73a5ba885facc.tar.gz tcl-cdedbaef562cec652a7bbfa9faf73a5ba885facc.tar.bz2 |
fix background error reporting in the absence of a bgerror proc [Bug 219142].
Diffstat (limited to 'tests/event.test')
-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 |