diff options
| author | kjnash <k.j.nash@usa.net> | 2022-09-11 16:32:30 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2022-09-11 16:32:30 (GMT) |
| commit | e681ade127e237c8ebf20bbaf02f6c5757671b71 (patch) | |
| tree | 05241f1daceb328a12bea3d21ea0fc87cb358089 /tests/httpd11.tcl | |
| parent | b34f06a4afa5f57846efbe55f8dccb29e4611e2b (diff) | |
| download | tcl-e681ade127e237c8ebf20bbaf02f6c5757671b71.zip tcl-e681ade127e237c8ebf20bbaf02f6c5757671b71.tar.gz tcl-e681ade127e237c8ebf20bbaf02f6c5757671b71.tar.bz2 | |
Fix bug [3610253] - apply the patch supplied with the ticket, and add a test. REVIEW REQUESTED! Also fix -zip 0 so it sends "Accept-Encoding: identity".
Diffstat (limited to 'tests/httpd11.tcl')
| -rw-r--r-- | tests/httpd11.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/httpd11.tcl b/tests/httpd11.tcl index 6570ee9..55b52fd 100644 --- a/tests/httpd11.tcl +++ b/tests/httpd11.tcl @@ -46,7 +46,7 @@ proc get-chunks {data {compression gzip}} { } set data "" - set chunker [make-chunk-generator $data 512] + set chunker [make-chunk-generator $data 671] while {[string length [set chunk [$chunker]]]} { append data $chunk } @@ -60,7 +60,7 @@ proc blow-chunks {data {ochan stdout} {compression gzip}} { compress { set data [zlib compress $data] } } - set chunker [make-chunk-generator $data 512] + set chunker [make-chunk-generator $data 671] while {[string length [set chunk [$chunker]]]} { puts -nonewline $ochan $chunk } |