diff options
| author | vincentdarley <vincentdarley> | 2004-03-26 19:04:48 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2004-03-26 19:04:48 (GMT) |
| commit | 1fab20da2dcd874015e0001999807698fcc6688e (patch) | |
| tree | 40d72e632855c9e8ba31f676d6da0352a078b367 /tests/fileSystem.test | |
| parent | dbf0dda330688becb98f2c5eb2e87878f80487cf (diff) | |
| download | tcl-1fab20da2dcd874015e0001999807698fcc6688e.zip tcl-1fab20da2dcd874015e0001999807698fcc6688e.tar.gz tcl-1fab20da2dcd874015e0001999807698fcc6688e.tar.bz2 | |
fixed another volume-relative file normalization problem
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 14 |
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} |