diff options
| author | hypnotoad <yoda@etoyoc.com> | 2018-01-11 16:45:52 (GMT) |
|---|---|---|
| committer | hypnotoad <yoda@etoyoc.com> | 2018-01-11 16:45:52 (GMT) |
| commit | 9947048fbda326ad65c7f4a163a00d1d51efd791 (patch) | |
| tree | e0564e02ee6453d6b5b6fdb0f719c031f461912e /tests/zipfs.test | |
| parent | 37b48e808c43273e27f69fff6280a7a29f3b7c4d (diff) | |
| download | tcl-9947048fbda326ad65c7f4a163a00d1d51efd791.zip tcl-9947048fbda326ad65c7f4a163a00d1d51efd791.tar.gz tcl-9947048fbda326ad65c7f4a163a00d1d51efd791.tar.bz2 | |
Tweaks to zipfs.test
Diffstat (limited to 'tests/zipfs.test')
| -rw-r--r-- | tests/zipfs.test | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index 43aa48b..c9dd0ac 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -160,6 +160,13 @@ test zipfs-2.2.0 {zipfs mkzip} -constraints zipfs -body { cd $CWD } -result "[zipfs root]abc/cp850.enc" +skip [concat [skip] zipfs-2.2.*] + + +if {![zipfs exists /abc/cp850.enc]} { + tcltest::skip zipfs-2.2.* +} + test zipfs-2.2.1 {zipfs info} -constraints zipfs -body { set r [zipfs info ${ziproot}abc/cp850.enc] lrange $r 0 2 @@ -204,7 +211,7 @@ test zipfs-2.2.6 {zipfs unmount} -constraints zipfs -body { zipfs exists /abc/cp850.enc } -result 0 -file delete -force $tmpdir +catch {file delete -force $tmpdir} ::tcltest::cleanupTests return |