summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-11-24 14:45:38 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-11-24 14:45:38 (GMT)
commit1704d23d60d9f21edb117206e36ce0cf911ef376 (patch)
treed15ecb52d96487285dd7e7f4528d5a4ad99d1765 /tests
parente2721f9546c9c616a5ce5cadb6769399114fb8b0 (diff)
downloadtcl-1704d23d60d9f21edb117206e36ce0cf911ef376.zip
tcl-1704d23d60d9f21edb117206e36ce0cf911ef376.tar.gz
tcl-1704d23d60d9f21edb117206e36ce0cf911ef376.tar.bz2
Fix testcases on Windows. Use more "info loaded" as appropriate
Diffstat (limited to 'tests')
-rw-r--r--tests/chanio.test2
-rw-r--r--tests/event.test2
-rw-r--r--tests/io.test2
-rw-r--r--tests/winDde.test2
-rw-r--r--tests/winPipe.test2
5 files changed, 5 insertions, 5 deletions
diff --git a/tests/chanio.test b/tests/chanio.test
index 16244e2..4f5c328 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -37,7 +37,7 @@ namespace eval ::tcl::test::io {
catch {
::tcltest::loadTestedCommands
package require -exact tcl::test [info patchlevel]
- set ::tcltestlib [lindex [package ifneeded tcl::test [info patchlevel]] 1]
+ set ::tcltestlib [info loaded {} Tcltest]
}
package require tcltests
diff --git a/tests/event.test b/tests/event.test
index ba52e30..85c17d6 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -15,7 +15,7 @@ namespace import -force ::tcltest::*
catch {
::tcltest::loadTestedCommands
package require -exact tcl::test [info patchlevel]
- set ::tcltestlib [lindex [package ifneeded tcl::test [info patchlevel]] 1]
+ set ::tcltestlib [info loaded {} Tcltest]
}
diff --git a/tests/io.test b/tests/io.test
index 0aa4ebf..230a7e1 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -32,7 +32,7 @@ namespace eval ::tcl::test::io {
catch {
::tcltest::loadTestedCommands
package require -exact tcl::test [info patchlevel]
- set ::tcltestlib [lindex [package ifneeded tcl::test [info patchlevel]] 1]
+ set ::tcltestlib [info loaded {} Tcltest]
}
package require tcltests
diff --git a/tests/winDde.test b/tests/winDde.test
index 9d15357..2b85d5c 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -20,7 +20,7 @@ if {[testConstraint win]} {
if {![catch {
::tcltest::loadTestedCommands
set ::ddever [package require dde 1.4.3]
- set ::ddelib [info loaded "" Dde]}]} {
+ set ::ddelib [info loaded {} Dde]}]} {
testConstraint dde 1
}
}
diff --git a/tests/winPipe.test b/tests/winPipe.test
index 25b5517..d1418cf 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -21,7 +21,7 @@ unset -nocomplain path
catch {
::tcltest::loadTestedCommands
package require -exact tcl::test [info patchlevel]
- set ::tcltestlib [lindex [package ifneeded tcl::test [info patchlevel]] 1]
+ set ::tcltestlib [info loaded {} Tcltest]
}
set org_pwd [pwd]