fixed the rest of the Test::WWW::Mech tests

This commit is contained in:
Doug Bell 2008-04-27 10:07:35 +00:00
parent 0e1c5b35c3
commit 3c6ad74cae
2 changed files with 12 additions and 3 deletions

View file

@ -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

View file

@ -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