diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | tests/fileSystem.test | 10 |
2 files changed, 10 insertions, 5 deletions
@@ -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}} |