git.maemo.org Git - pkg-perl/blob - deb-src/libwww-perl/libwww-perl-5.813/t/live/apache-listing.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use File::Listing;
   5 use LWP::Simple;
   6
   7 my $ok = 1;
   8
   9 # some sample URLs
  10 my @urls = (
  11             "http://www.apache.org/dist/apr/?C=N&O=D",
  12             "http://perl.apache.org/rpm/distrib/",
  13             "http://stein.cshl.org/WWW/software/",
  14             "http://www.cpan.org/modules/by-module/",
  15            );
  16 print "1.." . scalar(@urls) . "\n";
  17
  18 for my $url (@urls) {
  19     print "# $url\n";
  20     my @listing = parse_dir(get($url),undef,"apache");
  21     print "not " if @listing == 0;
  22     print "ok " . $ok++ . "\n";
  23     #require Data::Dumper; print Data::Dumper->Dump(["Listing for $url", \@listing],[]);
  24 }