--- t/200.t +++ t/200.t @@ -1,18 +1,15 @@ -use Test::More 0.98; +use Test::More tests => 2; use HTTP::SimpleLinkChecker; -subtest http => sub { + { try_it( 'http://blogs.perl.org/' ); }; -subtest http => sub { - try_it( 'https://www.perl.org/' ); + { + try_it( 'https://www.google.co.uk/' ); }; -done_testing(); - - sub try_it { my $code = HTTP::SimpleLinkChecker::check_link($_[0]); is( $code, 200, "I can talk to $_[0]!" ); --- t/403.t +++ t/403.t @@ -3,6 +3,6 @@ use Test::More tests => 1; use HTTP::SimpleLinkChecker; my $code = HTTP::SimpleLinkChecker::check_link( - 'http://www.pair.com/comdog/cgi-bin/403.cgi'); + 'http://www.city-fan.org/tips/403'); is( $code, 403, "Unauthorized code works" );