summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2004-03-26 19:04:48 (GMT)
committervincentdarley <vincentdarley>2004-03-26 19:04:48 (GMT)
commit1fab20da2dcd874015e0001999807698fcc6688e (patch)
tree40d72e632855c9e8ba31f676d6da0352a078b367 /tests
parentdbf0dda330688becb98f2c5eb2e87878f80487cf (diff)
downloadtcl-1fab20da2dcd874015e0001999807698fcc6688e.zip
tcl-1fab20da2dcd874015e0001999807698fcc6688e.tar.gz
tcl-1fab20da2dcd874015e0001999807698fcc6688e.tar.bz2
fixed another volume-relative file normalization problem
Diffstat (limited to 'tests')
-rw-r--r--tests/fileSystem.test14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 281d8c9..5f8105d 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -386,6 +386,20 @@ test filesystem-1.38 {file normalisation with volume relative} \
set res
} "[lindex $drives 0]foo"
+test filesystem-1.39 {file normalisation with volume relative} {winOnly} {
+ set drv [lindex [file volumes] 0]
+ set dir [lindex [glob -type d -dir $drv *] 0]
+ set old [pwd]
+ cd $dir
+ set res [file norm [string range $drv 0 1]]
+ cd $old
+ if {[string index $res end] eq "/"} {
+ set res "Bad normalized path: $res"
+ } else {
+ set res "ok"
+ }
+} {ok}
+
test filesystem-2.0 {new native path} {unixOnly} {
foreach f [lsort [glob -nocomplain /usr/bin/c*]] {
catch {file readlink $f}