* tests/fileSystem.test: Minor correction to new fileSystem-9.X

        tests so that they clean up temporary directories correctly.

2 files changed, 10 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index ee3a241..021ca2d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-30  Don Porter  <dgp@users.sourceforge.net>
+
+	* tests/fileSystem.test: Minor correction to new fileSystem-9.X
+	tests so that they clean up temporary directories correctly.
+
 2004-06-30  Vince Darley  <vincentdarley@users.sourceforge.net>
 
 	* doc/filename.n: clarified behaviour concerning trailing
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 45fb97d..c1c1ebd 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -964,7 +964,7 @@ test filesystem-9.1 {path objects and join and object rep} {
     cd [tcltest::temporaryDirectory]
     file mkdir [file join a b c]
     set res [TestFind1 a [file join b . c]]
-    file delete -force [file join a b c]
+    file delete -force a
     cd $origdir
     set res
 } {{a/b/./c found: 1} {is dir a dir? 1} {a/b/./c found: 1}}
@@ -974,7 +974,7 @@ test filesystem-9.2 {path objects and join and object rep} {
     cd [tcltest::temporaryDirectory]
     file mkdir [file join a b c]
     set res [TestFind2 a [file join b . c]]
-    file delete -force [file join a b c]
+    file delete -force a
     cd $origdir
     set res
 } {{a/b/./c found: 1} {is dir a dir? 1} {a/b/./c found: 1}}
@@ -984,7 +984,7 @@ test filesystem-9.2.1 {path objects and join and object rep} {
     cd [tcltest::temporaryDirectory]
     file mkdir [file join a b c]
     set res [TestFind2 a [file join b .]]
-    file delete -force [file join a b c]
+    file delete -force a
     cd $origdir
     set res
 } {{a/b/. found: 1} {is dir a dir? 1} {a/b/. found: 1}}
@@ -994,7 +994,7 @@ test filesystem-9.3 {path objects and join and object rep} {
     cd [tcltest::temporaryDirectory]
     file mkdir [file join a b c]
     set res [TestFind1 a [file join b .. b c]]
-    file delete -force [file join a b c]
+    file delete -force a
     cd $origdir
     set res
 } {{a/b/../b/c found: 1} {is dir a dir? 1} {a/b/../b/c found: 1}}
@@ -1004,7 +1004,7 @@ test filesystem-9.4 {path objects and join and object rep} {
     cd [tcltest::temporaryDirectory]
     file mkdir [file join a b c]
     set res [TestFind2 a [file join b .. b c]]
-    file delete -force [file join a b c]
+    file delete -force a
     cd $origdir
     set res
 } {{a/b/../b/c found: 1} {is dir a dir? 1} {a/b/../b/c found: 1}}