summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-12-13 20:20:46 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-12-13 20:20:46 (GMT)
commit4eaff43e124f523dca05591bc760fa9f32eb7672 (patch)
tree5e427fade1da0aae431f74090f943fc2b75ccc1a /tests
parenta555b6e7aaf7b6d30b29e65984f3a96f0435e184 (diff)
downloadtcl-4eaff43e124f523dca05591bc760fa9f32eb7672.zip
tcl-4eaff43e124f523dca05591bc760fa9f32eb7672.tar.gz
tcl-4eaff43e124f523dca05591bc760fa9f32eb7672.tar.bz2
TIP 400 suffered from the same segfaulting flaw as 3595576.
Segfaulting test and fix committed.
Diffstat (limited to 'tests')
-rw-r--r--tests/zlib.test14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/zlib.test b/tests/zlib.test
index 5f1e5fc..891dba0 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -826,6 +826,20 @@ test zlib-11.2 "Bug #3390073: mis-appled gzip filtering" -setup {
} -cleanup {
removeFile $file
} -result {1000 /foo/bar 0}
+test zlib-11.3 {Bug 3595576 variant} -setup {
+ set file [makeFile {} test.input]
+} -constraints zlib -body {
+ set f [open $file wb]
+ puts -nonewline [zlib push gzip $f -header {filename /foo/bar}] \
+ [string repeat "hello" 1000]
+ close $f
+ set f [open $file rb]
+ set d [read $f]
+ close $f
+ zlib gunzip $d -header noSuchNs::foo
+} -cleanup {
+ removeFile $file
+} -returnCodes error -result {can't set "noSuchNs::foo": parent namespace doesn't exist}
::tcltest::cleanupTests
return