summaryrefslogtreecommitdiffstats
path: root/tests
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 /tests
parent35a60d2794da3ef12fc3ed0b92c761c67c9b6d04 (diff)
downloadtcl-355700202704a63305f30f528cb7000a2f575cb2.zip
tcl-355700202704a63305f30f528cb7000a2f575cb2.tar.gz
tcl-355700202704a63305f30f528cb7000a2f575cb2.tar.bz2
added test
Diffstat (limited to 'tests')
-rw-r--r--tests/fileSystem.test14
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
}