view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - Fix lwp-download so it can download files with an "_" in the filename
        (CPAN RT#26207)
    - Quiet complaints from HTML::HeadParser when dealing with undecoded UTF-8
        data. (CPAN RT#20274)
    - When both IO::Socket::SSL and Net::SSL are loaded, use the latter
        (CPAN RT #26152)
    - Allows SSL to work much more reliably: (CPAN RT #23372)
    - Allow text/vnd.wap.wml and application/vnd.oasis.opendocument.text in
        content-type field in lwp-request (CPAN RT #26151)
    - Add default media type for XML in LWP::MediaTypes (CPAN RT #21093)
    - Added chunked test by Andreas J. Koenig

5.805   2005-12-08
    - HTTP::Date: The str2time function returned wrong values for years in the
        early 20th century, because timelocal() actually expects the year to be
        provided on a different scale than what localtime() returns.
    - HTTP::Headers can now be constructed with field names that repeat. The
        $h->header function now also accept repeating field names and can also
        remove headers if passed undef as value.
    - HTML::Form: The parse method now takes hash style optional arguments and
        the old verbose behaviour is now off by default.

xt/author/live/jigsaw/chunk.t  view on Meta::CPAN

use Test::More;
use Test::RequiresInternet ('jigsaw.w3.org' => 443);

use HTTP::Request ();
use LWP::UserAgent ();

plan tests => 8;

my $ua = LWP::UserAgent->new(keep_alive => 1);

my $req = HTTP::Request->new(GET => "https://jigsaw.w3.org/HTTP/ChunkedScript");
my $res = $ua->request($req);
isa_ok($res, 'HTTP::Response', 'request: Got a proper response');

ok($res->is_success, 'response success');
is($res->content_type, 'text/plain', 'Content-Type: text/plain');
is($res->header('Client-Transfer-Encoding'), "chunked", 'Client-Transfer-Encoding: chunked');

for my $cref ( ${$res->content_ref} ) {
    $cref =~ s/\015?\012/\n/g;
    like($cref, qr/Below this line, is 1000 repeated lines of 0-9/, 'proper text found');
    $cref =~ s/^.*?-----+\n//s;

    my @lines = split(/^/, $cref);
    is(scalar(@lines), 1000, 'Got 1000 lines');

    # check that all lines are the same