summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-30 18:56:31 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-30 18:56:31 (GMT)
commit39c08858dbc5163b84133fda955512d0495e04b2 (patch)
tree406ea103b319674c903f19b981cd10ed2a9092be
parent89c07686f7863d7ca8549097fcef32fc1e6ff336 (diff)
downloadtcl-39c08858dbc5163b84133fda955512d0495e04b2.zip
tcl-39c08858dbc5163b84133fda955512d0495e04b2.tar.gz
tcl-39c08858dbc5163b84133fda955512d0495e04b2.tar.bz2
event tests should continue to work with static Tcltest package
-rw-r--r--tests/event.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/event.test b/tests/event.test
index 8ab239d..0d1b06c 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -434,7 +434,7 @@ catch {rename bgerror {}}
test event-8.1 {Tcl_CreateExitHandler procedure} {stdio testexithandler} {
set child [open |[list [interpreter]] r+]
- puts $child "load $::tcltestlib Tcltest"
+ puts $child "catch {load $::tcltestlib Tcltest}"
puts $child "testexithandler create 41; testexithandler create 4"
puts $child "testexithandler create 6; exit"
flush $child
@@ -448,7 +448,7 @@ odd 41
test event-9.1 {Tcl_DeleteExitHandler procedure} {stdio testexithandler} {
set child [open |[list [interpreter]] r+]
- puts $child "load $::tcltestlib Tcltest"
+ puts $child "catch {load $::tcltestlib Tcltest}"
puts $child "testexithandler create 41; testexithandler create 4"
puts $child "testexithandler create 6; testexithandler delete 41"
puts $child "testexithandler create 16; exit"
@@ -462,7 +462,7 @@ even 4
}
test event-9.2 {Tcl_DeleteExitHandler procedure} {stdio testexithandler} {
set child [open |[list [interpreter]] r+]
- puts $child "load $::tcltestlib Tcltest"
+ puts $child "catch {load $::tcltestlib Tcltest}"
puts $child "testexithandler create 41; testexithandler create 4"
puts $child "testexithandler create 6; testexithandler delete 4"
puts $child "testexithandler create 16; exit"
@@ -476,7 +476,7 @@ odd 41
}
test event-9.3 {Tcl_DeleteExitHandler procedure} {stdio testexithandler} {
set child [open |[list [interpreter]] r+]
- puts $child "load $::tcltestlib Tcltest"
+ puts $child "catch {load $::tcltestlib Tcltest}"
puts $child "testexithandler create 41; testexithandler create 4"
puts $child "testexithandler create 6; testexithandler delete 6"
puts $child "testexithandler create 16; exit"
@@ -490,7 +490,7 @@ odd 41
}
test event-9.4 {Tcl_DeleteExitHandler procedure} {stdio testexithandler} {
set child [open |[list [interpreter]] r+]
- puts $child "load $::tcltestlib Tcltest"
+ puts $child "catch {load $::tcltestlib Tcltest}"
puts $child "testexithandler create 41; testexithandler delete 41"
puts $child "testexithandler create 16; exit"
flush $child