diff options
| author | das <das> | 2002-01-27 11:09:19 (GMT) |
|---|---|---|
| committer | das <das> | 2002-01-27 11:09:19 (GMT) |
| commit | 22bb660bc6f7ab06cef0629d9f88a231ce5d2b7b (patch) | |
| tree | 8f740075fb62f904aa60a596cb07aebb02849a6f /tests/event.test | |
| parent | 107d41756017e763fb66994fb0ba6072b20a7d2b (diff) | |
| download | tcl-22bb660bc6f7ab06cef0629d9f88a231ce5d2b7b.zip tcl-22bb660bc6f7ab06cef0629d9f88a231ce5d2b7b.tar.gz tcl-22bb660bc6f7ab06cef0629d9f88a231ce5d2b7b.tar.bz2 | |
* generic/tclInt.decls:
* generic/tclIntPlatDecls.h:
* mac/tclMacChan.c:
* mac/tclMacFCmd.c:
* mac/tclMacFile.c:
* mac/tclMacInit.c:
* mac/tclMacLoad.c:
* mac/tclMacResource.c:
* mac/tclMacSock.c: TIP 27 CONSTification induced changes
* tests/event.test:
* tests/main.test: added catches/constraints to test that
use features that don't exist on the mac.
Diffstat (limited to 'tests/event.test')
| -rw-r--r-- | tests/event.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/event.test b/tests/event.test index ce9e34d..2afd33e 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.14 2001/12/10 20:30:13 msofer Exp $ +# RCS: @(#) $Id: event.test,v 1.15 2002/01/27 11:09:23 das Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -276,7 +276,9 @@ 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]} { +testConstraint exec [llength [info commands exec]] + +test event-7.5 {correct behaviour when there is no bgerror [Bug 219142]} {exec} { set script { after 1000 error hello after 2000 set a 0 |