diff options
| author | hobbs <hobbs> | 2004-05-04 22:31:10 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2004-05-04 22:31:10 (GMT) |
| commit | c192b0d48746ab4ac800d93a5837e8e978774635 (patch) | |
| tree | 29177d0ab8268ed968b8ea4674d00c5bf6fed892 /tests/fileSystem.test | |
| parent | 2a00b06b8593f6f9a73dbf6e0a4afb2316523f8e (diff) | |
| download | tcl-c192b0d48746ab4ac800d93a5837e8e978774635.zip tcl-c192b0d48746ab4ac800d93a5837e8e978774635.tar.gz tcl-c192b0d48746ab4ac800d93a5837e8e978774635.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 |