git.maemo.org Git - pkg-perl/blob - deb-src/libwww-perl/libwww-perl-5.813/t/net/proxy.t

   1 #!/usr/local/bin/perl -w
   2 #
   3 # Test retrieving a file with a 'ftp://' URL,
   4 # via a HTTP proxy.
   5 #
   6
   7 print "1..1\n";
   8
   9 require "net/config.pl";
  10 unless (defined $net::ftp_proxy) {
  11     print "not ok 1\n";
  12     exit 0;
  13 }
  14
  15 require LWP::Debug;
  16 require LWP::UserAgent;
  17
  18 #LWP::Debug::level('+');
  19
  20 my $ua = new LWP::UserAgent;    # create a useragent to test
  21
  22 $ua->proxy('ftp', $net::ftp_proxy);
  23
  24 my $url = new URI::URL('ftp://ftp.uninett.no/');
  25
  26 my $request = new HTTP::Request('GET', $url);
  27
  28 my $response = $ua->request($request, undef, undef);
  29
  30 my $str = $response->as_string;
  31
  32 if ($response->is_success) {
  33     print "ok 1\n";
  34 }
  35 else {
  36     print "not ok 1\n";
  37 }