fixed the rest of the Test::WWW::Mech tests
This commit is contained in:
parent
0e1c5b35c3
commit
3c6ad74cae
2 changed files with 12 additions and 3 deletions
|
|
@ -20,7 +20,6 @@ use Test::More;
|
|||
use WebGUI::Test; # Must use this before any other WebGUI modules
|
||||
use WebGUI::Session;
|
||||
use Test::Deep;
|
||||
use Test::WWW::Mechanize;
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Init
|
||||
|
|
|
|||
|
|
@ -65,12 +65,22 @@ for my $i ( 0 .. 5 ) {
|
|||
|
||||
$versionTag->commit;
|
||||
|
||||
my ( $mech );
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Tests
|
||||
|
||||
if ( !eval { require Test::WWW::Mechanize; 1; } ) {
|
||||
plan skip_all => 'Cannot load Test::WWW::Mechanize. Will not test.';
|
||||
}
|
||||
$mech = Test::WWW::Mechanize->new;
|
||||
$mech->get( $baseUrl );
|
||||
if ( !$mech->success ) {
|
||||
plan skip_all => "Cannot load URL '$baseUrl'. Will not test.";
|
||||
}
|
||||
|
||||
plan tests => 2;
|
||||
|
||||
use_ok("Test::WWW::Mechanize");
|
||||
my $mech;
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Test www_viewRss
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue