Merge 8.6. More missing ::tcltest::loadTestedCommands

3 files changed, 4 insertions, 0 deletions

diff --git a/tests/binary.test b/tests/binary.test
index 6cd209d..a43fb49 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -15,6 +15,7 @@ if {"::tcltest" ni [namespace children]} {
     namespace import -force ::tcltest::*
 }
 ::tcltest::loadTestedCommands
+catch [list package require -exact tcl::test [info patchlevel]]
 
 testConstraint bigEndian [expr {$tcl_platform(byteOrder) eq "bigEndian"}]
 testConstraint littleEndian [expr {$tcl_platform(byteOrder) eq "littleEndian"}]
diff --git a/tests/proc.test b/tests/proc.test
index 23aea28..ab32567 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -17,6 +17,7 @@ if {"::tcltest" ni [namespace children]} {
     package require tcltest 2.5
     namespace import -force ::tcltest::*
 }
+::tcltest::loadTestedCommands
 
 testConstraint tcl::test [expr {![catch {package require tcl::test}]}]
 testConstraint memory	    [llength [info commands memory]]
diff --git a/tests/safe.test b/tests/safe.test
index f3a6565..773b16f 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -24,6 +24,8 @@ if {"::tcltest" ni [namespace children]} {
     package require tcltest 2.5
     namespace import -force ::tcltest::*
 }
+::tcltest::loadTestedCommands
+catch [list package require -exact tcl::test [info patchlevel]]
 
 foreach i [interp children] {
     interp delete $i