Bug #49518: Fixed

Internet connection tested before running tests dependent on the internet.

	modified:   t/read.t

t/read.t

@@ -14,14 +14,21 @@ my $reader = new_ok( 'Gwybodaeth::Read' );
 # Check file reading
 ok( $reader->get_file_data('t/read.t') > 0, "reads file data");
 
-# Check url reading
-ok( $reader->get_url_data('http://www.google.co.uk') == 1,  "reads url data");
+SKIP: {
+    use LWP;
+    my $ua = LWP::UserAgent->new;
+    my $req = HTTP::Request->new(POST => 'http://www.google.com');
+    $ua->request($req);
+    skip ": no network connection", 2 if ($@);
+
+    # Check url reading
+    ok( $reader->get_url_data('http://www.google.co.uk') == 1,  "reads url data");
+    # Check invalid url handling
+    ok( $reader->get_url_data('foo.bar.cy') == 0, "handles invalid url");
+}
 
 # Check if it resturns an array
 isa_ok( $reader->get_input_data(), 'ARRAY');
 
-# Check invalid url handling
-ok( $reader->get_url_data('foo.bar.cy') == 0, "handles invalid url");
-
 # Check invalid file handling
 ok( $reader->get_file_data('./Foo.bar') == 0, "handles invalid file");