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 | 25bbbbf3ee5102d8fd13884456e828e6dacd4b5b (patch) | |
| tree | 1084996cafda0af0735db33a2206d3f61a26bcf3 /tests | |
| parent | b9bc37e2b8d6b0ee9fa2839ad1a37f42266d417d (diff) | |
| download | tcl-25bbbbf3ee5102d8fd13884456e828e6dacd4b5b.zip tcl-25bbbbf3ee5102d8fd13884456e828e6dacd4b5b.tar.gz tcl-25bbbbf3ee5102d8fd13884456e828e6dacd4b5b.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 |