Fix various test when run outside of the build environment [3549770]

3 files changed, 16 insertions, 10 deletions

diff --git a/tests/encoding.test b/tests/encoding.test
index 47bb81e..30aada0 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -15,8 +15,11 @@ namespace eval ::tcl::test::encoding {
 
 namespace import -force ::tcltest::*
 
-::tcltest::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]
+}
 
 proc toutf {args} {
     variable x
@@ -406,6 +409,7 @@ cd [workingDirectory]
 # Code to make the next few tests more intelligible; the code being tested
 # should be in the body of the test!
 proc runInSubprocess {contents {filename iso2022.tcl}} {
+    set contents "load $::tcltestlib Tcltest\n$contents"
     set theFile [makeFile $contents $filename]
     try {
 	exec [interpreter] $theFile
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 638c427..3348b7b 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -19,8 +19,12 @@ namespace eval ::tcl::test::fileSystem {
 	file delete -force [file join dir.dir linkinside.file]
     }
 
-::tcltest::loadTestedCommands
-catch [list package require -exact Tcltest [info patchlevel]]
+catch {
+    ::tcltest::loadTestedCommands
+    package require -exact Tcltest [info patchlevel]
+    set ::ddelib [lindex [package ifneeded dde 1.4.0b1] 1]
+    set ::reglib [lindex [package ifneeded registry 1.3.0] 1]
+}
 
 # Test for commands defined in Tcltest executable
 testConstraint testfilesystem  	    [llength [info commands ::testfilesystem]]
@@ -507,10 +511,9 @@ test filesystem-7.1.1 {load from vfs} -setup {
 } -constraints {win testsimplefilesystem} -body {
     # This may cause a crash on exit
     cd [file dirname [info nameof]]
-    set dde [lindex [glob *dde*[info sharedlib]] 0]
     testsimplefilesystem 1
     # This loads dde via a complex copy-to-temp operation
-    load simplefs:/$dde dde
+    load simplefs:/$::ddelib dde
     testsimplefilesystem 0
     return ok
     # The real result of this test is what happens when Tcl exits.
@@ -522,11 +525,10 @@ test filesystem-7.1.2 {load from vfs, and then unload again} -setup {
 } -constraints {win testsimplefilesystem} -body {
     # This may cause a crash on exit
     cd [file dirname [info nameof]]
-    set reg [lindex [glob tclreg*[info sharedlib]] 0]
     testsimplefilesystem 1
     # This loads reg via a complex copy-to-temp operation
-    load simplefs:/$reg Registry
-    unload simplefs:/$reg
+    load simplefs:/$::reglib Registry
+    unload simplefs:/$::reglib
     testsimplefilesystem 0
     return ok
     # The real result of this test is what happens when Tcl exits.
diff --git a/tests/registry.test b/tests/registry.test
index 7881e82..8f8aa98 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -19,7 +19,7 @@ testConstraint reg 0
 if {[testConstraint win]} {
     if {![catch {
 	    ::tcltest::loadTestedCommands
-	    package require registry
+	    package require -exact registry 1.3.0
 	}]} {
 	testConstraint reg 1
     }