­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ use strict; use warnings; use Test::More; use Test::RequiresInternet ('jigsaw.w3.org' => 443); use HTTP::Request (); use LWP::UserAgent (); SKIP: { skip 'LIVE_JIGSAW_TESTS not enabled', 3 if $ENV{NO_JIGSAW}; my $ua = LWP::UserAgent->new(keep_alive => 1); my $content; my @te = ( undef, q{}, 'deflate', 'gzip', 'trailers, deflate;q=0.4, identity;q=0.1', ); for my $te (@te) { my $req = HTTP::Request->new(GET => 'https://jigsaw.w3.org/HTTP/TE/foo.txt'); if (defined $te) { $req->header(TE => $te); $req->header(Connection => 'TE'); } my $res = $ua->request($req); isa_ok($res, 'HTTP::Response', 'request: Got a proper response'); if (defined $content) { is($res->content, $content, 'content: Correct content'); } else { $content = $res->content; } } } done_testing();