Skip Menu |

This queue is for tickets about the libwww-perl CPAN distribution.

Report information
The Basics
Id: 39993
Status: resolved
Priority: 0/
Queue: libwww-perl

People
Owner: Nobody in particular
Requestors: CHORNY [...] cpan.org
Cc: hang
on
tests
perl-win32-users [...] activestate.com
AdminCc:

Bug Information
Severity: Important
Broken in: 5.817
Fixed in: (no value)



CC: tests hang on Win32
base/message................104/110 # Test 109 got: "Content-Encoding: gzip, base64, identity\nContent-Type: text/plain\n\nH4sIAAAAAAAAA/NIzcnJVyjPL8pJUQQAlRmFGwwAAAA=\n" (base/message.t at line 438) # Expected: "Content-Encoding: gzip, base64, identity\nContent-Type: text/plain\n\nH4sIAAAAAAAA//NIzcnJVyjPL8pJUQQAlRmFGwwAAAA=\n" # Line 4 is changed: # - "H4sIAAAAAAAA//NIzcnJVyjPL8pJUQQAlRmFGwwAAAA=\n" # + "H4sIAAAAAAAAA/NIzcnJVyjPL8pJUQQAlRmFGwwAAAA=\n" # base/message.t line 438 is: ok($m->as_string, <<'EOT'); also hangs here: local/chunked...............5/5 Compress::Zlib 1.42. ActiveState Perl 5.8.8 build 820. All is OK on Strawberry 5.10.0 and Vanilla 5.8.8. Both has Compress::Zlib 2.xxx. After upgrading Compress::Zlib to 2.015, error in base/message.t disappeared. -- Alexandr Ciornii, http://chorny.net
http://gitorious.org/projects/libwww- perl/repos/mainline/commits/351181df759034e732bd0a443192fe01262dc842 Use deflate compression instead of gzip for the test It looks like the header bytes that the gzip compression produces differes between different versions of Compress::Zlib, so let's try the simpler deflate encoding instead. diff --git a/t/base/message.t b/t/base/message.t index a7d44c1..2e7f75a 100644 --- a/t/base/message.t +++ b/t/base/message.t @@ -433,12 +433,12 @@ $m = HTTP::Message->new([ ], "Hello world!" ); -$m->encode("gzip"); +$m->encode("deflate"); $m->encode("base64", "identity"); ok($m->as_string, <<'EOT'); -Content-Encoding: gzip, base64, identity +Content-Encoding: deflate, base64, identity Content-Type: text/plain -H4sIAAAAAAAA//NIzcnJVyjPL8pJUQQAlRmFGwwAAAA= +eJzzSM3JyVcozy/KSVEEAB0JBF4= EOT ok($m->decoded_content, "Hello world!");