* library/tcltest1.0/tcltest.tcl: Changed NormalizePath to

normalizePath and exported it as a public proc.  This proc
creates an absolute path given the name of the variable containing
the path to modify.  The path is modified in place.
* library/tcltest1.0/pkgIndex.tcl: Added normalizePath.
* tests/all.tcl: Changed code to use normalizePath.


FossilOrigin-Name: 336bed6b79456dc2ce2fbe4a35f58de0e6afde21

4 files changed, 16 insertions, 14 deletions

diff --git a/library/tcltest/pkgIndex.tcl b/library/tcltest/pkgIndex.tcl
index 205cbbb..7a58882 100644
--- a/library/tcltest/pkgIndex.tcl
+++ b/library/tcltest/pkgIndex.tcl
@@ -14,4 +14,5 @@ package ifneeded tcltest 1.0 [list tclPkgSetup $dir tcltest 1.0 \
         ::tcltest::removeDirectory ::tcltest::removeFile \
         ::tcltest::restoreState ::tcltest::saveState ::tcltest::test \
         ::tcltest::threadReap ::tcltest::viewFile ::tcltest::grep \
-        ::tcltest::getMatchingFiles ::tcltest::loadTestedCommands}}}]
+        ::tcltest::getMatchingFiles ::tcltest::loadTestedCommands \
+        ::tcltest::normalizePath }}}]
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 3f09055..950f3f4 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -12,7 +12,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: tcltest.tcl,v 1.20 1999/11/23 22:59:13 stanton Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.21 2000/01/27 23:44:07 jenn Exp $
 
 package provide tcltest 1.0
 
@@ -24,7 +24,7 @@ namespace eval tcltest {
     set procList [list test cleanupTests saveState restoreState \
 	    normalizeMsg makeFile removeFile makeDirectory removeDirectory \
 	    viewFile bytestring safeFetch threadReap getMatchingFiles \
-	    loadTestedCommands]
+	    loadTestedCommands normalizePath]
     foreach proc $procList {
 	namespace export $proc
     }
@@ -803,7 +803,7 @@ proc ::tcltest::CheckDirectory {rw dir errMsg} {
     }
 }
 
-# ::tcltest::NormalizePath --
+# ::tcltest::normalizePath --
 #
 #     This procedure resolves any symlinks in the path thus creating a
 #     path without internal redirection. It assumes that the incoming
@@ -816,7 +816,7 @@ proc ::tcltest::CheckDirectory {rw dir errMsg} {
 #     The path is modified in place.
 #
 
-proc ::tcltest::NormalizePath {pathVar} {
+proc ::tcltest::normalizePath {pathVar} {
     upvar $pathVar path
 
     set oldpwd [pwd]
@@ -1016,7 +1016,7 @@ proc ::tcltest::processCmdLineArgs {} {
 	file mkdir $::tcltest::temporaryDirectory
     }
 
-    NormalizePath ::tcltest::temporaryDirectory
+    normalizePath ::tcltest::temporaryDirectory
 
     # Set the ::tcltest::testsDirectory to the arg of -testdir, if
     # given.
@@ -1041,7 +1041,7 @@ proc ::tcltest::processCmdLineArgs {} {
 	exit 1
     }
     
-    NormalizePath ::tcltest::testsDirectory
+    normalizePath ::tcltest::testsDirectory
     
     # Save the names of files that already exist in
     # the output directory.
diff --git a/library/tcltest1.0/pkgIndex.tcl b/library/tcltest1.0/pkgIndex.tcl
index 205cbbb..7a58882 100644
--- a/library/tcltest1.0/pkgIndex.tcl
+++ b/library/tcltest1.0/pkgIndex.tcl
@@ -14,4 +14,5 @@ package ifneeded tcltest 1.0 [list tclPkgSetup $dir tcltest 1.0 \
         ::tcltest::removeDirectory ::tcltest::removeFile \
         ::tcltest::restoreState ::tcltest::saveState ::tcltest::test \
         ::tcltest::threadReap ::tcltest::viewFile ::tcltest::grep \
-        ::tcltest::getMatchingFiles ::tcltest::loadTestedCommands}}}]
+        ::tcltest::getMatchingFiles ::tcltest::loadTestedCommands \
+        ::tcltest::normalizePath }}}]
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index 3f09055..950f3f4 100644
--- a/library/tcltest1.0/tcltest.tcl
+++ b/library/tcltest1.0/tcltest.tcl
@@ -12,7 +12,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: tcltest.tcl,v 1.20 1999/11/23 22:59:13 stanton Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.21 2000/01/27 23:44:07 jenn Exp $
 
 package provide tcltest 1.0
 
@@ -24,7 +24,7 @@ namespace eval tcltest {
     set procList [list test cleanupTests saveState restoreState \
 	    normalizeMsg makeFile removeFile makeDirectory removeDirectory \
 	    viewFile bytestring safeFetch threadReap getMatchingFiles \
-	    loadTestedCommands]
+	    loadTestedCommands normalizePath]
     foreach proc $procList {
 	namespace export $proc
     }
@@ -803,7 +803,7 @@ proc ::tcltest::CheckDirectory {rw dir errMsg} {
     }
 }
 
-# ::tcltest::NormalizePath --
+# ::tcltest::normalizePath --
 #
 #     This procedure resolves any symlinks in the path thus creating a
 #     path without internal redirection. It assumes that the incoming
@@ -816,7 +816,7 @@ proc ::tcltest::CheckDirectory {rw dir errMsg} {
 #     The path is modified in place.
 #
 
-proc ::tcltest::NormalizePath {pathVar} {
+proc ::tcltest::normalizePath {pathVar} {
     upvar $pathVar path
 
     set oldpwd [pwd]
@@ -1016,7 +1016,7 @@ proc ::tcltest::processCmdLineArgs {} {
 	file mkdir $::tcltest::temporaryDirectory
     }
 
-    NormalizePath ::tcltest::temporaryDirectory
+    normalizePath ::tcltest::temporaryDirectory
 
     # Set the ::tcltest::testsDirectory to the arg of -testdir, if
     # given.
@@ -1041,7 +1041,7 @@ proc ::tcltest::processCmdLineArgs {} {
 	exit 1
     }
     
-    NormalizePath ::tcltest::testsDirectory
+    normalizePath ::tcltest::testsDirectory
     
     # Save the names of files that already exist in
     # the output directory.