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 | b882ae374d3347c200686c12d27efeaeac4ad298 (patch) | |
tree | d30a46c3cdcb761379799a3b14f39303c4c6004b /tests | |
parent | a3bb0eb58574ff20794453a63a6439ee79e84a92 (diff) | |
download | tcl-b882ae374d3347c200686c12d27efeaeac4ad298.zip tcl-b882ae374d3347c200686c12d27efeaeac4ad298.tar.gz tcl-b882ae374d3347c200686c12d27efeaeac4ad298.tar.bz2 |
test hygiene
Diffstat (limited to 'tests')
-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 |