t/live/jigsaw-auth-d.t

   1 use strict;
   2 use Test;
   3
   4 plan tests => 2;
   5
   6 use LWP::UserAgent;
   7
   8 {
   9    package MyUA;
  10    use vars qw(@ISA);
  11    @ISA = qw(LWP::UserAgent);
  12
  13    my @try = (['foo', 'bar'], ['', ''], ['guest', ''], ['guest', 'guest']);
  14
  15    sub get_basic_credentials {
  16         my($self,$realm, $uri, $proxy) = @_;
  17         print "$realm:$uri:$proxy => ";
  18         my $p = shift @try;
  19         print join("/", @$p), "\n";
  20         return @$p;
  21    }
  22
  23 }
  24
  25 my $ua = MyUA->new(keep_alive => 1);
  26
  27 my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/Digest/");
  28 my $res = $ua->request($req);
  29
  30 #print $res->as_string;
  31
  32 ok($res->content =~ /Your browser made it!/);
  33 ok($res->header("Client-Response-Num"), 5);