diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-06-30 20:53:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-06-30 20:53:19 (GMT) |
| commit | 46a8a46946dc77acf9bf834b5f647510f5cb2be5 (patch) | |
| tree | 6b7a2479836e470f9fb329ff1b2da28f1f9a12c6 /tests/fileSystem.test | |
| parent | 40c4071e89f7108b6f3f15f4cc1f2534c76ba96e (diff) | |
| download | tcl-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.
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 10 |
1 files changed, 5 insertions, 5 deletions
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}} |