t/live/jigsaw-te.t

   1 #!perl -w
   2
   3 print "1..4\n";
   4
   5 use strict;
   6 use LWP::UserAgent;
   7
   8 my $ua = LWP::UserAgent->new(keep_alive => 1);
   9
  10
  11 my $content;
  12 my $testno = 1;
  13
  14 for my $te (undef, "", "deflate", "gzip", "trailers, deflate;q=0.4, identity;q=0.1") {
  15     my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/TE/foo.txt");
  16     if (defined $te) {
  17         $req->header(TE => $te);
  18         $req->header(Connection => "TE");
  19     }
  20     print $req->as_string;
  21
  22     my $res = $ua->request($req);
  23     if (defined $content) {
  24         print "not " unless $content eq $res->content;
  25         print "ok $testno\n\n";
  26         $testno++;
  27     }
  28     else {
  29         $content = $res->content;
  30     }
  31     $res->content("");
  32     print $res->as_string;
  33 }