git.maemo.org Git - dh-make-perl/blob - dev/i386/libwww-perl/libwww-perl-5.813/t/base/headers-etag.t

   1 print "1..4\n";
   2
   3 require HTTP::Headers::ETag;
   4
   5 $h = HTTP::Headers->new;
   6 $h->etag("tag1");
   7 print "not " unless $h->etag eq qq("tag1");
   8 print "ok 1\n";
   9
  10 $h->etag("w/tag2");
  11 print "not " unless $h->etag eq qq(W/"tag2");
  12 print "ok 2\n";
  13
  14 $h->if_match(qq(W/"foo", bar, baz), "bar");
  15 $h->if_none_match(333);
  16
  17 $h->if_range("tag3");
  18 print "not " unless $h->if_range eq qq("tag3");
  19 print "ok 3\n";
  20
  21 $t = time;
  22 $h->if_range($t);
  23 print "not " unless $h->if_range == $t;
  24 print "ok 4\n";
  25
  26
  27 print $h->as_string;
  28