diff options
| author | dgp <dgp@users.sourceforge.net> | 2024-07-30 15:29:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2024-07-30 15:29:12 (GMT) |
| commit | cf81b9fdca550a9645093a3ede4b59d526f81c53 (patch) | |
| tree | d30a46c3cdcb761379799a3b14f39303c4c6004b | |
| parent | f7183cd006d9a4d0db8d8520de868a2866347243 (diff) | |
| download | tcl-cf81b9fdca550a9645093a3ede4b59d526f81c53.zip tcl-cf81b9fdca550a9645093a3ede4b59d526f81c53.tar.gz tcl-cf81b9fdca550a9645093a3ede4b59d526f81c53.tar.bz2 | |
test hygiene
| -rw-r--r-- | tests/zipfs.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index 3375af2..3d583c7 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -1945,11 +1945,12 @@ namespace eval test_ns_zipfs { set basename bug-7d5f1c1308 set mt //zipfs:/$basename-mt set zipfile $basename.zip - set dir [tcltest::makeDirectory $basename] + set dir [makeDirectory $basename] close [open [file join $dir .ext] w] } -cleanup { zipfs unmount $mt file delete $zipfile + removeDirectory $basename } -body { zipfs mkzip $zipfile $dir [file dirname $dir] zipfs mount $zipfile $mt |