Description: Workaround to skip tests when internet access is not available
 Due to Debian policy, build systems of Debiandon't have internet access, 
 that causes that the internet dependent tests fail at build time.
Forwarded: not-needed
Author: Jotam Jr. Trejo <jotamjr@debian.org.sv>
Last-Update: 2013-10-29
--- a/t/06title.t
+++ b/t/06title.t
@@ -9,14 +9,27 @@
 my $title = $bot->load("Title");
 ok( $title, "loaded Title module" );
 
+SKIP: {
+
+skip "Debian build systems do not have internet access", 1 if $ENV{NO_NETWORK};
+
 like( $bot->tell_direct("http://google.com"),
     qr/Google/, "got title of google ok" );
 
+}
+
 # test to make sure that Title.pm isn't eating urls.
 ok( $bot->load("Infobot"), "loaded Infobot module" );
-my $t = $bot->tell_direct("google is at http://google.com");
+
+SKIP: {
+
+skip "Debian build systems do not have internet access", 2 if $ENV{NO_NETWORK};
+
+my $t = $bot->tell_direct("google is at http:/google.com");
 like( $t, qr/Google/, "got title of google ok" );
 like( $t, qr/Okay/,   "infobot still there" );
 
+}
+
 $title->set( 'user_ignore_re' => 'perl' );
 is( $bot->tell_direct("http://use.perl.org"), '', 'ignore_re works' );