1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl WWW-IndexParser.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use lib qw(../lib);
use Test::More tests => 3;
BEGIN { use_ok('WWW::IndexParser') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
my $ref = WWW::IndexParser->new();
ok( defined $ref, 'new() returned' );
ok( ref($ref) eq "WWW::IndexParser", 'new() returned a WWW::IndexParser');
#my $url = "http://www.james.rcpt.to/misc/";
#my @files = WWW::IndexParser->new(url => $url);
#ok( @files, "fetched index from $url");
#ok( $files[0]->filename eq '/', "first entry from $url is parent directory /");
# test lighttpd
#{
# my $url = "http://mirrors.cat.pdx.edu/lighttpd/";
# my @files = WWW::IndexParser->new(url => $url);
# ok( @files, "fetched index from $url");
# is( $files[0]->filename, '../', "first entry from $url is parent directory /");
# warn $files[0]->url;
# like( $files[1]->filename, qr/lighttpd/, "second entry from $url looks like lighttpd tarball");
# like( $files[1]->type, qr/rpm/, $files[1]->type );
#}
|
