use File::Spec;
use Test::More 'no_plan';
use_ok( "HTML::SimpleLinkExtor" );
ok( defined &HTML::SimpleLinkExtor::schemes, "schemes() is defined" );
my $file = 't/example2.html';
ok( -e $file, "Example file is there" );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my $p = HTML::SimpleLinkExtor->new;
ok( ref $p, "Made parser object" );
isa_ok( $p, 'HTML::SimpleLinkExtor' );
can_ok( $p, 'schemes' );
$p->parse_file( $file );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my @links = $p->schemes( 'http' );
my $links = $p->schemes( 'http' );
is( $links, 7, "Got the right number of HTTP links" );
is( scalar @links, $links, "Found the right number of links" );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my @links = $p->schemes( 'https' );
my $links = $p->schemes( 'https' );
is( $links, 2, "Got the right number of HTTPS links" );
is( scalar @links, $links, "Found the right number of links" );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my @links = $p->schemes( qw(http https) );
my $links = $p->schemes( qw(http https) );
is( $links, 9, "Got the right number of HTTPS links" );
is( scalar @links, $links, "Found the right number of links" );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my @links = $p->schemes( 'ftp' );
my $links = $p->schemes( 'ftp' );
is( $links, 1, "Got the right number of FTP links" );
is( scalar @links, $links, "Found the right number of links" );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my @links = $p->schemes( 'mailto' );
my $links = $p->schemes( 'mailto' );
is( $links, 1, "Got the right number of MAILTO links" );
is( scalar @links, $links, "Found the right number of links" );
}
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my $p = HTML::SimpleLinkExtor->new( 'http://www.example.com' );
ok( ref $p, "Made parser object" );
isa_ok( $p, 'HTML::SimpleLinkExtor' );
can_ok( $p, 'schemes' );
$p->parse_file( $file );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my @links = $p->schemes( 'http' );
my $links = $p->schemes( 'http' );
is( $links, 22, "Got the right number of HTTP links" );
is( scalar @links, $links, "Found the right number of links" );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my @links = $p->schemes( qw(http https) );
my $links = $p->schemes( qw(http https) );
is( $links, 24, "Got the right number of HTTPS links" );
is( scalar @links, $links, "Found the right number of links" );
}
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my $p = HTML::SimpleLinkExtor->new( 'ftp://www.example.com' );
ok( ref $p, "Made parser object" );
isa_ok( $p, 'HTML::SimpleLinkExtor' );
can_ok( $p, 'schemes' );
$p->parse_file( $file );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my @links = $p->schemes( 'ftp' );
my $links = $p->schemes( 'ftp' );
is( $links, 16, "Got the right number of HTTP links" );
is( scalar @links, $links, "Found the right number of links" );
}
}