diff options
| author | hobbs <hobbs> | 2003-02-11 09:42:15 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2003-02-11 09:42:15 (GMT) |
| commit | 94d9eb28393d1120280bc9666a645a9610c61b0a (patch) | |
| tree | 77266a1391b694a9b5a8b37c7b50379d8585f119 /tests/fileSystem.test | |
| parent | 28874513024e2087054c3fcbdb08a7fead506bc8 (diff) | |
| download | tcl-94d9eb28393d1120280bc9666a645a9610c61b0a.zip tcl-94d9eb28393d1120280bc9666a645a9610c61b0a.tar.gz tcl-94d9eb28393d1120280bc9666a645a9610c61b0a.tar.bz2 | |
* tests/fileSystem.test: added test 8.3
* generic/tclIOUtil.c (Tcl_FSGetNormalizedPath):
(Tcl_FSMatchInDirectory): handle the cwdLen == 0 case
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index dfb42bb..f35eae1 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -460,6 +460,16 @@ test filesystem-8.2 {relative path objects and use of pwd} { set res } {1} +test filesystem-8.3 {path objects and empty string} { + set anchor "" + set dst foo + set res $dst + + set yyy [file split $anchor] + set dst [file join $anchor $dst] + lappend res $dst $yyy +} {foo foo {}} + cleanupTests } namespace delete ::tcl::test::fileSystem |