summaryrefslogtreecommitdiffstats
path: root/tests/event.test
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2001-12-10 20:30:11 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2001-12-10 20:30:11 (GMT)
commitcdedbaef562cec652a7bbfa9faf73a5ba885facc (patch)
treef55ebfdc6e69dc8e379506c97f4f0887adcdad7c /tests/event.test
parent2509c4647a862758676661f35e5e16d3e08ca162 (diff)
downloadtcl-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.test16
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