fixed missing dependency in test-cases "*io-60.1" (constraint-related) - missed load of tcltest-library in sub-process

2 files changed, 12 insertions, 4 deletions

diff --git a/tests/chanio.test b/tests/chanio.test
index 6408f50..230d37c 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -30,8 +30,11 @@ namespace eval ::tcl::test::io {
     variable msg
     variable expected
 
-    loadTestedCommands
-    catch [list package require -exact Tcltest [info patchlevel]]
+    catch {
+	::tcltest::loadTestedCommands
+	package require -exact Tcltest [info patchlevel]
+	set ::tcltestlib [lindex [package ifneeded Tcltest [info patchlevel]] 1]
+    }
     package require tcltests
     
     testConstraint testbytestring   [llength [info commands testbytestring]]
@@ -7446,6 +7449,7 @@ test chan-io-59.1 {Thread reference of channels} {testmainthread testchannel} {
 test chan-io-60.1 {writing illegal utf sequences} {openpipe fileevent testbytestring} {
     # This test will hang in older revisions of the core.
     set out [open $path(script) w]
+    chan puts $out "catch {load $::tcltestlib Tcltest}"
     chan puts $out {
 	chan puts [testbytestring \xe2]
 	exit 1
diff --git a/tests/io.test b/tests/io.test
index 996e125..fe1052a 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -29,8 +29,11 @@ namespace eval ::tcl::test::io {
     variable msg
     variable expected
 
-    loadTestedCommands
-    catch [list package require -exact Tcltest [info patchlevel]]
+    catch {
+	::tcltest::loadTestedCommands
+	package require -exact Tcltest [info patchlevel]
+	set ::tcltestlib [lindex [package ifneeded Tcltest [info patchlevel]] 1]
+    }
     package require tcltests
 
 testConstraint testbytestring [llength [info commands testbytestring]]
@@ -8270,6 +8273,7 @@ test io-60.1 {writing illegal utf sequences} {openpipe 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 {
 	puts [testbytestring \xe2]
 	exit 1