git.maemo.org Git - pkg-perl/blob - deb-src/libwww-perl/libwww-perl-5.813/t/base/ua.t

   1 print "1..10\n";
   2
   3 use LWP::UserAgent;
   4
   5 $ua = LWP::UserAgent->new;
   6 $clone = $ua->clone;
   7
   8 print "not " unless $ua->agent =~ /^libwww-perl/;
   9 print "ok 1\n";
  10
  11
  12 print "not " if defined $ua->proxy(ftp => "http://www.sol.no");
  13 print "ok 2\n";
  14
  15 print "not " unless $ua->proxy("ftp") eq "http://www.sol.no";
  16 print "ok 3\n";
  17
  18 @a = $ua->proxy([qw(ftp http wais)], "http://proxy.foo.com");
  19
  20 for (@a) { $_ = "undef" unless defined; }
  21
  22 print "not " unless "@a" eq "http://www.sol.no undef undef";
  23 print "ok 4\n";
  24
  25 print "not " unless $ua->proxy("http") eq "http://proxy.foo.com";
  26 print "ok 5\n";
  27
  28 print "not " unless ref($ua->default_headers) eq "HTTP::Headers";
  29 print "ok 6\n";
  30
  31 $ua->default_header("Foo" => "bar", "Multi" => [1, 2]);
  32 print "not " unless $ua->default_headers->header("Foo") eq "bar";
  33 print "ok 7\n";
  34
  35 print "not " unless $ua->default_header("Foo") eq "bar";
  36 print "ok 8\n";
  37
  38 # Try it
  39 $ua->proxy(http => "loopback:");
  40 $ua->agent("foo/0.1");
  41
  42 print "not " unless $ua->get("http://www.example.com", x => "y")->content eq <<EOT; print "ok 9\n";
  43 GET http://www.example.com
  44 User-Agent: foo/0.1
  45 Foo: bar
  46 Multi: 1
  47 Multi: 2
  48 X: y
  49
  50 EOT
  51
  52 print "not " unless (ref($clone->{proxy}) eq 'HASH');
  53 print "ok 10\n";