Test::WWW::Mechanize is a testing-specific WWW::Mechanize Perl subclass.
SYNOPSIS
Test::WWW::Mechanize is a subclass of WWW::Mechanize that incorporates features for web application testing. For example:
use Test::More tests => 5;
use Test::WWW::Mechanize;
my $mech = Test::WWW::Mechanize->new;
$mech->get_ok( $page );
$mech->base_is( 'http://petdance.com/', 'Proper ' );
$mech->title_is( "Invoice Status", "Make sure we're on the invoice page" );
$mech->content_contains( "Andy Lester", "My name somewhere" );
$mech->content_like( qr/(cpan|perl).org/, "Link to perl.org or CPAN" );
This is equivalent to:
use Test::More tests => 5;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new;
$mech->get( $page );
ok( $mech->success );
is( $mech->base, 'http://petdance.com', 'Proper ' );
is( $mech->title, "Invoice Status", "Make sure we're on the invoice page" );
ok( index( $mech->content, "Andy Lester" ) >= 0, "My name somewhere" );
like( $mech->content, qr/(cpan|perl).org/, "Link to perl.org or CPAN" );
but has nicer diagnostics if they fail.
Default descriptions will be supplied for most methods if you omit them. e.g.
my $mech = Test::WWW::Mechanize->new;
$mech->get_ok( 'http://petdance.com/' );
$mech->base_is( 'http://petdance.com/' );
$mech->title_is( "Invoice Status" );
$mech->content_contains( "Andy Lester" );
$mech->content_like( qr/(cpan|perl).org/ );
results in
ok - Got 'http://petdance.com/' ok
ok - Base is 'http://petdance.com/'
ok - Title is 'Invoice Status'
ok - Content contains 'Andy Lester'
ok - Content is like '(?-xism:(cpan|perl).org)'
Product's homepage
Requirements:
· Perl