--- 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 https => 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]!" );