diff options
| author | vincentdarley <vincentdarley> | 2002-06-27 12:27:34 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2002-06-27 12:27:34 (GMT) |
| commit | d803b5d6f6c5b0536c4b9ea252cb2e9312dc8302 (patch) | |
| tree | dff037214125bb866ef5becad1d4e39993ba0b07 /tests | |
| parent | af98b186fc8d7e04f254b7bf0e6588000e5e6ea3 (diff) | |
| download | tcl-d803b5d6f6c5b0536c4b9ea252cb2e9312dc8302.zip tcl-d803b5d6f6c5b0536c4b9ea252cb2e9312dc8302.tar.gz tcl-d803b5d6f6c5b0536c4b9ea252cb2e9312dc8302.tar.bz2 | |
unix root volume fix
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cmdAH.test | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index ff715e0..cb6b2e4 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.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: cmdAH.test,v 1.21 2002/06/21 14:22:29 vincentdarley Exp $ +# RCS: @(#) $Id: cmdAH.test,v 1.22 2002/06/27 12:27:35 vincentdarley Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -198,6 +198,14 @@ test cmdAH-6.4 {Tcl_FileObjCmd: volumes} {pcOnly} { list [catch {lsearch $volumeList "c:/"} element] [expr $element != -1] [catch {list glob -nocomplain [lindex $volumeList $element]*}] } {0 1 0} +test cmdAH-6.5 {cd} {unixOnly nonPortable} { + set dir [pwd] + cd / + set res [pwd] + cd $dir + set res +} {/} + # attributes test cmdAH-7.1 {Tcl_FileObjCmd - file attrs} { |