diff options
| author | jenn <jenn> | 2000-01-27 23:44:01 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 2000-01-27 23:44:01 (GMT) |
| commit | 335c1f78124d678298612ab09fed880c7042aebc (patch) | |
| tree | 7ea24b8a84f6b0a46229df7a60e1cfeab0eda6e9 /library/tcltest | |
| parent | d8c3ee2177ba3302b1caf7fe451592c210d68212 (diff) | |
| download | tcl-335c1f78124d678298612ab09fed880c7042aebc.zip tcl-335c1f78124d678298612ab09fed880c7042aebc.tar.gz tcl-335c1f78124d678298612ab09fed880c7042aebc.tar.bz2 | |
* 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.
Diffstat (limited to 'library/tcltest')
| -rw-r--r-- | library/tcltest/pkgIndex.tcl | 3 | ||||
| -rw-r--r-- | library/tcltest/tcltest.tcl | 12 |
2 files changed, 8 insertions, 7 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. |