X-Git-Url: http://vcs.maemo.org/git/?a=blobdiff_plain;f=dev%2Farm%2Flibwww-perl%2Flibwww-perl-5.813%2Ft%2Flive%2Fapache-listing.t;fp=dev%2Farm%2Flibwww-perl%2Flibwww-perl-5.813%2Ft%2Flive%2Fapache-listing.t;h=d54fc9dcb652b4656f39133c22e2cfe85e70cbbe;hb=f477fa73365d491991707e7ed9217b48d6994551;hp=0000000000000000000000000000000000000000;hpb=da95c414033799c3a62606f299c3c00b5c77ca11;p=dh-make-perl

diff --git a/dev/arm/libwww-perl/libwww-perl-5.813/t/live/apache-listing.t b/dev/arm/libwww-perl/libwww-perl-5.813/t/live/apache-listing.t
new file mode 100644
index 0000000..d54fc9d
--- /dev/null
+++ b/dev/arm/libwww-perl/libwww-perl-5.813/t/live/apache-listing.t
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use File::Listing;
+use LWP::Simple;
+
+my $ok = 1;
+
+# some sample URLs
+my @urls = (
+	    "http://www.apache.org/dist/apr/?C=N&O=D",
+	    "http://perl.apache.org/rpm/distrib/",
+	    "http://stein.cshl.org/WWW/software/",
+	    "http://www.cpan.org/modules/by-module/",
+	   );
+print "1.." . scalar(@urls) . "\n";
+
+for my $url (@urls) {
+    print "# $url\n";
+    my @listing = parse_dir(get($url),undef,"apache");
+    print "not " if @listing == 0;
+    print "ok " . $ok++ . "\n";
+    #require Data::Dumper; print Data::Dumper->Dump(["Listing for $url", \@listing],[]);
+}