From 46a8a46946dc77acf9bf834b5f647510f5cb2be5 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 30 Jun 2004 20:53:19 +0000
Subject:         * tests/fileSystem.test: Minor correction to new
 fileSystem-9.X         tests so that they clean up temporary directories
 correctly.

---
 ChangeLog             |  5 +++++
 tests/fileSystem.test | 10 +++++-----
 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}}
-- 
cgit v0.12