summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2002-06-27 12:27:34 (GMT)
committervincentdarley <vincentdarley>2002-06-27 12:27:34 (GMT)
commitd803b5d6f6c5b0536c4b9ea252cb2e9312dc8302 (patch)
treedff037214125bb866ef5becad1d4e39993ba0b07 /tests
parentaf98b186fc8d7e04f254b7bf0e6588000e5e6ea3 (diff)
downloadtcl-d803b5d6f6c5b0536c4b9ea252cb2e9312dc8302.zip
tcl-d803b5d6f6c5b0536c4b9ea252cb2e9312dc8302.tar.gz
tcl-d803b5d6f6c5b0536c4b9ea252cb2e9312dc8302.tar.bz2
unix root volume fix
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdAH.test10
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} {