diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-03 15:32:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-03 15:32:46 (GMT) |
| commit | 8607752aa65f484ab844296ce90d2d2e5bfc2259 (patch) | |
| tree | 645dfbaee93b71a5ba9a4458772d4b4719c83ae1 /tests/io.test | |
| parent | 3b0ee42270085b039b75e2e27a3a145399a1bfac (diff) | |
| download | tcl-8607752aa65f484ab844296ce90d2d2e5bfc2259.zip tcl-8607752aa65f484ab844296ce90d2d2e5bfc2259.tar.gz tcl-8607752aa65f484ab844296ce90d2d2e5bfc2259.tar.bz2 | |
Case-sensitive package names
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/io.test b/tests/io.test index a3e3b6f..33ea187 100644 --- a/tests/io.test +++ b/tests/io.test @@ -31,8 +31,8 @@ namespace eval ::tcl::test::io { 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] } package require tcltests @@ -8385,7 +8385,7 @@ test io-60.1 {writing illegal utf sequences} {fileevent testbytestring} { # This test will hang in older revisions of the core. set out [open $path(script) w] - puts $out "catch {load $::tcltestlib Tcltest}" + puts $out "catch {load $::tcltestlib tcl::test}" puts $out { puts [testbytestring \xe2] exit 1 @@ -8477,7 +8477,7 @@ test io-70.1 {Transfer channel} {testchannel thread} { set tid [thread::create -preserved] thread::send $tid [list set c $c] - thread::send $tid {load {} Tcltest} + thread::send $tid {load {} tcl::test} lappend res [thread::send $tid { testchannel splice $c set res [catch {seek $c 0 start}] |