diff options
author | vincentdarley <vincentdarley@noemail.net> | 2002-06-27 12:27:34 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley@noemail.net> | 2002-06-27 12:27:34 (GMT) |
commit | e2b2f705af522d4875bf7c8792b421849ac67be8 (patch) | |
tree | dff037214125bb866ef5becad1d4e39993ba0b07 /tests/cmdAH.test | |
parent | 645cb488ce9df75913558a0559d21ab977bc41db (diff) | |
download | tcl-e2b2f705af522d4875bf7c8792b421849ac67be8.zip tcl-e2b2f705af522d4875bf7c8792b421849ac67be8.tar.gz tcl-e2b2f705af522d4875bf7c8792b421849ac67be8.tar.bz2 |
unix root volume fix
FossilOrigin-Name: 09b4b3bd7bbfc13edcbaf994f747ca1332577c9a
Diffstat (limited to 'tests/cmdAH.test')
-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} { |