Add ARM files

[dh-make-perl] / dev / arm / libwww-perl / libwww-perl-5.813 / t / live / apache-listing.t

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 (file)
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],[]);
+}