git.maemo.org Git - pkg-perl/blob - deb-src/libwww-perl/libwww-perl-5.813/t/live/jigsaw-md5-get.t

   1 print "1..2\n";
   2
   3 use strict;
   4 use LWP::UserAgent;
   5
   6 my $ua = LWP::UserAgent->new(keep_alive => 1);
   7
   8 my $res = $ua->get(
   9   "http://jigsaw.w3.org/HTTP/h-content-md5.html",
  10     "TE" => "deflate",
  11 );
  12
  13 use Digest::MD5 qw(md5_base64);
  14 print "not " unless $res->header("Content-MD5") eq md5_base64($res->content) . "==";
  15 print "ok 1\n";
  16
  17 print $res->as_string;
  18
  19 my $etag = $res->header("etag");
  20
  21 $res = $ua->get(
  22   "http://jigsaw.w3.org/HTTP/h-content-md5.html",
  23     "TE" => "deflate",
  24     "If-None-Match" => $etag,
  25 );
  26 print $res->as_string;
  27
  28 print "not " unless $res->code eq "304" && $res->header("Client-Response-Num") == 2;
  29 print "ok 2\n";