diff options
| author | msofer <msofer@noemail.net> | 2001-12-10 20:30:11 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2001-12-10 20:30:11 (GMT) |
| commit | 0c619ce18376db3d5aae681128121cdc9a1e9ea5 (patch) | |
| tree | f55ebfdc6e69dc8e379506c97f4f0887adcdad7c /tests/event.test | |
| parent | 781cfa55c59f46794e4ef55a6ac751b27ace541e (diff) | |
| download | tcl-0c619ce18376db3d5aae681128121cdc9a1e9ea5.zip tcl-0c619ce18376db3d5aae681128121cdc9a1e9ea5.tar.gz tcl-0c619ce18376db3d5aae681128121cdc9a1e9ea5.tar.bz2 | |
fix background error reporting in the absence of a bgerror proc [Bug 219142].
FossilOrigin-Name: f64442352c7c68bb0863524e9fc24309c61505c1
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 |