diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-08 16:53:51 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-08 16:53:51 (GMT) |
| commit | 33f8fdcf30a9568e22ef86d05f3f2bc21818789a (patch) | |
| tree | 1084996cafda0af0735db33a2206d3f61a26bcf3 /tests | |
| parent | 649511b66bf1465ad8553f707dd4c17b0447a6d1 (diff) | |
| download | tcl-33f8fdcf30a9568e22ef86d05f3f2bc21818789a.zip tcl-33f8fdcf30a9568e22ef86d05f3f2bc21818789a.tar.gz tcl-33f8fdcf30a9568e22ef86d05f3f2bc21818789a.tar.bz2 | |
Fix SEGV in zipfs mounting, and try to make that code more comprehensible
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/zipfs.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index 3c11895..36fc6d6 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -380,6 +380,10 @@ test zipfs-4.5 {zipfs lmkimg: making image from mounted} -constraints zipfs -set removeFile $targetImage removeFile $addFile } -result {//zipfs://ziptest/test/add.tcl //zipfs://ziptest/test/ok.tcl} + +test zipfs-5.1 {zipfs mount_data: short data} -body { + zipfs mount_data gorp {} +} -constraints zipfs -returnCodes error -result {bad zip data} ::tcltest::cleanupTests return |