diff options
| author | hobbs <hobbs> | 2004-05-04 22:31:10 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2004-05-04 22:31:10 (GMT) |
| commit | c468181748dd568a55755362995a806c35544b9a (patch) | |
| tree | 29177d0ab8268ed968b8ea4674d00c5bf6fed892 /tests/fileSystem.test | |
| parent | 3967737bc5402ae38fa82c9c8bc95d314b35cab9 (diff) | |
| download | tcl-c468181748dd568a55755362995a806c35544b9a.zip tcl-c468181748dd568a55755362995a806c35544b9a.tar.gz tcl-c468181748dd568a55755362995a806c35544b9a.tar.bz2 | |
* tests/fileSystem.test (filesystem-1.39): replace 'file volumes'
* tests/fileName.test (filename-12.9,10): lindex with direct C:/
hard-coded because A:/ was being used and that is empty for most.
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index a619929..e9c4ee6 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -387,7 +387,7 @@ test filesystem-1.38 {file normalisation with volume relative} \ } "[lindex $drives 0]foo" test filesystem-1.39 {file normalisation with volume relative} {winOnly} { - set drv [lindex [file volumes] 0] + set drv C:/ set dir [lindex [glob -type d -dir $drv *] 0] set old [pwd] cd $dir |