added test

2 files changed, 18 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index c573c14..a1e2dfb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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
 }