diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | tests/fileSystem.test | 14 |
2 files changed, 18 insertions, 0 deletions
@@ -1,3 +1,7 @@ +2004-07-01 Vince Darley <vincentdarley@users.sourceforge.net> + + * tests/fileSystem.test: Added test for [Bug 970529] + 2004-07-01 Donal K. Fellows <donal.k.fellows@man.ac.uk> * win/README.binary, win/README: Updated references to Tcl and Tk 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 } |