summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2004-07-02 13:11:40 (GMT)
committervincentdarley <vincentdarley>2004-07-02 13:11:40 (GMT)
commit355700202704a63305f30f528cb7000a2f575cb2 (patch)
tree7d206385fa046e57a713016f27881968077e96b8
parent35a60d2794da3ef12fc3ed0b92c761c67c9b6d04 (diff)
downloadtcl-355700202704a63305f30f528cb7000a2f575cb2.zip
tcl-355700202704a63305f30f528cb7000a2f575cb2.tar.gz
tcl-355700202704a63305f30f528cb7000a2f575cb2.tar.bz2
added test
-rw-r--r--ChangeLog4
-rw-r--r--tests/fileSystem.test14
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
}