diff options
Diffstat (limited to 'tests')
| -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 |