git.maemo.org Git - dh-make-perl/blob - dev/i386/libwww-perl/libwww-perl-5.813/t/net/moved.t

   1 #!/usr/local/bin/perl -w
   2 #
   3
   4 print "1..1\n";
   5
   6 require "net/config.pl";
   7 require LWP::Debug;
   8 require LWP::UserAgent;
   9
  10 $url = "http://$net::httpserver$net::cgidir/moved";
  11
  12 #LWP::Debug::level('+trace');
  13
  14 my $ua = new LWP::UserAgent;    # create a useragent to test
  15 $ua->timeout(30);               # timeout in seconds
  16
  17 my $request = new HTTP::Request('GET', $url);
  18
  19 print $request->as_string;
  20
  21 my $response = $ua->request($request, undef, undef);
  22
  23 print $response->as_string, "\n";
  24
  25 if ($response->is_success) {
  26     print "ok 1\n";
  27 }
  28 else {
  29     print "not ok 1\n";
  30 }
  31
  32
  33 # avoid -w warning
  34 $dummy = $net::httpserver;
  35 $dummy = $net::cgidir;