diff options
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 c1c1ebd..172d9d6 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -1009,6 +1009,20 @@ test filesystem-9.4 {path objects and join and object rep} { set res } {{a/b/../b/c found: 1} {is dir a dir? 1} {a/b/../b/c found: 1}} +test filesystem-9.5 {path objects and file tail and object rep} { + set origdir [pwd] + cd [tcltest::temporaryDirectory] + file mkdir dgp + close [open dgp/test w] + foreach relative [glob -nocomplain [file join * test]] { + set absolute [file join [pwd] $relative] + set res [list [file tail $absolute] "test"] + } + file delete -force dgp + cd $origdir + set res +} {test test} + cleanupTests unset -nocomplain drive } |