summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-06-30 20:53:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-06-30 20:53:19 (GMT)
commit46a8a46946dc77acf9bf834b5f647510f5cb2be5 (patch)
tree6b7a2479836e470f9fb329ff1b2da28f1f9a12c6
parent40c4071e89f7108b6f3f15f4cc1f2534c76ba96e (diff)
downloadtcl-46a8a46946dc77acf9bf834b5f647510f5cb2be5.zip
tcl-46a8a46946dc77acf9bf834b5f647510f5cb2be5.tar.gz
tcl-46a8a46946dc77acf9bf834b5f647510f5cb2be5.tar.bz2
* tests/fileSystem.test: Minor correction to new fileSystem-9.X
tests so that they clean up temporary directories correctly.
-rw-r--r--ChangeLog5
-rw-r--r--tests/fileSystem.test10
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}}