← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libwww-perl/edgy

« back to all changes in this revision

Viewing changes to t/live/apache-listing.t

  • Committer: Bazaar Package Importer
  • Author(s): Jay Bonci
  • Date: 2005-02-13 18:45:32 UTC
  • mfrom: (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050213184532-67qvopi4wre3010u
Tags: 5.803-4
http://bugs.debian.org/294597
http://bugs.debian.org/294595
* Make GET/POST/HEAD symlinks (Closes: #294597)
* lwp-requests now honors -b when dumping links (Closes: #294595)
  - Thanks to giuseppe bonacci for the patch
* Moved symlinks to a libwww-perl.links file

Show diffs side-by-side

added added

removed removed

Lines of Context:
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/~jon/scarab/nightly/",
 
12
            "http://www.apache.org/dist/apr/?C=N&O=D",
 
13
            "http://xml.apache.org/dist/batik/",
 
14
            "http://perl.apache.org/rpm/distrib/",
 
15
            "http://stein.cshl.org/WWW/software/",
 
16
            "http://www.cpan.org/modules/by-module/",
 
17
           );
 
18
print "1.." . scalar(@urls) . "\n";
 
19
 
 
20
for my $url (@urls) {
 
21
    print "# $url\n";
 
22
    my @listing = parse_dir(get($url),undef,"apache");
 
23
    print "not " if @listing == 0;
 
24
    print "ok " . $ok++ . "\n";
 
25
    #require Data::Dumper; print Data::Dumper->Dump(["Listing for $url", \@listing],[]);
 
26
}