Case-sensitive package names

1 files changed, 7 insertions, 7 deletions

diff --git a/tests/event.test b/tests/event.test
index 3194547..3728025 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -14,8 +14,8 @@ namespace import -force ::tcltest::*
 
 catch {
     ::tcltest::loadTestedCommands
-    package require -exact Tcltest [info patchlevel]
-    set ::tcltestlib [lindex [package ifneeded Tcltest [info patchlevel]] 1]
+    package require -exact tcl::test [info patchlevel]
+    set ::tcltestlib [lindex [package ifneeded tcl::test [info patchlevel]] 1]
 }
 
 
@@ -436,7 +436,7 @@ catch {rename bgerror {}}
 
 test event-8.1 {Tcl_CreateExitHandler procedure} {stdio testexithandler} {
     set child [open |[list [interpreter]] r+]
-    puts $child "catch {load $::tcltestlib Tcltest}"
+    puts $child "catch {load $::tcltestlib tcl::test}"
     puts $child "testexithandler create 41; testexithandler create 4"
     puts $child "testexithandler create 6; exit"
     flush $child
@@ -450,7 +450,7 @@ odd 41
 
 test event-9.1 {Tcl_DeleteExitHandler procedure} {stdio testexithandler} {
     set child [open |[list [interpreter]] r+]
-    puts $child "catch {load $::tcltestlib Tcltest}"
+    puts $child "catch {load $::tcltestlib tcl::test}"
     puts $child "testexithandler create 41; testexithandler create 4"
     puts $child "testexithandler create 6; testexithandler delete 41"
     puts $child "testexithandler create 16; exit"
@@ -464,7 +464,7 @@ even 4
 }
 test event-9.2 {Tcl_DeleteExitHandler procedure} {stdio testexithandler} {
     set child [open |[list [interpreter]] r+]
-    puts $child "catch {load $::tcltestlib Tcltest}"
+    puts $child "catch {load $::tcltestlib tcl::test}"
     puts $child "testexithandler create 41; testexithandler create 4"
     puts $child "testexithandler create 6; testexithandler delete 4"
     puts $child "testexithandler create 16; exit"
@@ -478,7 +478,7 @@ odd 41
 }
 test event-9.3 {Tcl_DeleteExitHandler procedure} {stdio testexithandler} {
     set child [open |[list [interpreter]] r+]
-    puts $child "catch {load $::tcltestlib Tcltest}"
+    puts $child "catch {load $::tcltestlib tcl::test}"
     puts $child "testexithandler create 41; testexithandler create 4"
     puts $child "testexithandler create 6; testexithandler delete 6"
     puts $child "testexithandler create 16; exit"
@@ -492,7 +492,7 @@ odd 41
 }
 test event-9.4 {Tcl_DeleteExitHandler procedure} {stdio testexithandler} {
     set child [open |[list [interpreter]] r+]
-    puts $child "catch {load $::tcltestlib Tcltest}"
+    puts $child "catch {load $::tcltestlib tcl::test}"
     puts $child "testexithandler create 41; testexithandler delete 41"
     puts $child "testexithandler create 16; exit"
     flush $child