diff options
author | dgp <dgp@noemail.net> | 2003-11-05 20:50:43 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2003-11-05 20:50:43 (GMT) |
commit | 46248b7bbc5b8ac481018b4e9ecfcd18b0ea76c2 (patch) | |
tree | f1d6d8d06b9e8f2a23e8c0f392213aa03f455035 /tests/unixInit.test | |
parent | e922dac77b4f87b36ee89c5ce23f0e5d997e080c (diff) | |
download | tcl-46248b7bbc5b8ac481018b4e9ecfcd18b0ea76c2.zip tcl-46248b7bbc5b8ac481018b4e9ecfcd18b0ea76c2.tar.gz tcl-46248b7bbc5b8ac481018b4e9ecfcd18b0ea76c2.tar.bz2 |
* tests/unixInit.test (unixInit-2.10): New test to expose [Bug 832657]
failure of TclpInitLibraryPath() to properly handle .. in the path
of the executable.
FossilOrigin-Name: 687e16de395760f4ccc717805e922b654a8b6aff
Diffstat (limited to 'tests/unixInit.test')
-rw-r--r-- | tests/unixInit.test | 36 |
1 files changed, 35 insertions, 1 deletions
diff --git a/tests/unixInit.test b/tests/unixInit.test index 0f01943..4ec31a5 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: unixInit.test,v 1.30 2002/12/04 07:07:40 hobbs Exp $ +# RCS: @(#) $Id: unixInit.test,v 1.31 2003/11/05 20:50:44 dgp Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -266,6 +266,40 @@ test unixInit-2.9 {TclpInitLibraryPath: paths relative to executable} {unix noSp set x } [list /tmp/lib/tcl[info tclversion] /lib/tcl[info tclversion] \ /tmp/library /library /tcl[info patchlevel]/library] + +test unixInit-2.10 {TclpInitLibraryPath: executable relative} -constraints { + unixOnly stdio +} -setup { + set tmpDir [makeDirectory tmp] + set sparklyDir [makeDirectory sparkly $tmpDir] + set execPath [file join [makeDirectory bin $sparklyDir] tcltest] + file copy [interpreter] $execPath + set libDir [makeDirectory lib $sparklyDir] + set scriptDir [makeDirectory tcl[info tclversion] $libDir] + makeFile {} init.tcl $scriptDir + set saveDir [pwd] + cd $libDir +} -body { + # Checking for Bug 832657 + lrange [getlibpath [file join .. bin tcltest]] 2 3 +} -cleanup { + cd $saveDir + unset saveDir + removeFile init.tcl $scriptDir + unset scriptDir + removeDirectory tcl[info tclversion] $libDir + unset libDir + file delete $execPath + unset execPath + removeDirectory bin $sparklyDir + removeDirectory lib $sparklyDir + unset sparklyDir + removeDirectory sparkly $tmpDir + unset tmpDir + removeDirectory tmp +} -result [list [file join [temporaryDirectory] tmp sparkly library] \ + [file join [temporaryDirectory] tmp library] ] + test unixInit-3.1 {TclpSetInitialEncodings} -constraints { unixOnly stdio } -body { |