diff options
| -rw-r--r-- | tests/binary.test | 1 | ||||
| -rw-r--r-- | tests/proc.test | 1 | ||||
| -rw-r--r-- | tests/safe.test | 2 |
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 |