Author: Nicholas Bamber <nicholas@periapt.co.uk>
Subject: Do not prompt for network access
Last-Update: 2011-10-11
Forwarded: no
--- a/pagesjaunes/t/02search.t
+++ b/pagesjaunes/t/02search.t
@@ -1,11 +1,19 @@
-use Test;
-BEGIN { plan tests => 5 }
+use Test::More;
+#BEGIN { plan tests => 5 }
 use WWW::Search::Pagesjaunes;
 
 my $pj = WWW::Search::Pagesjaunes->new();
 
 $pj->{ua}->agent("test".time);
 
+unless ($ENV{NO_NETWORK}) {
+    plan tests => 5;
+}
+else {
+    plan skip_all => "no network";
+}
+
+
 $pj->find( nom => "palais de l'elysée", localite => "paris");
 my $r = $pj->results;