diff --git a/Changes b/Changes index 8bd9b07..85464e7 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,6 @@ {{$NEXT}} Add LWP::Protocol::https as dependency. + Use HTTP::Online to test for internet connection when running tests. 1.120730 2012-03-13 12:41:33 Europe/London Need at least Net::Ping 2.33 for testing. diff --git a/t/15_live.t b/t/15_live.t index 903efc2..0db1a3b 100644 --- a/t/15_live.t +++ b/t/15_live.t @@ -5,16 +5,8 @@ use warnings; use Test::WWW::Mechanize; use Net::Ping 2.33; -use Test::More; - -my $p = Net::Ping->new( "syn", 2 ); -$p->port_number( getservbyname( "http", "tcp" ) ); -unless ( $p->ping('gamercard.xbox.com') ) { - plan skip_all => 'Can\t find gamercard.xbox.com for live tests'; -} -else { - plan tests => 17; -} +use Test::More tests => 17; +use HTTP::Online ':skip_all'; use WWW::XBoxLive;