1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
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);
+if ($ENV{TEST_NETWORK}) {
+ plan tests => 5;
+}
+else {
+ plan skip_all => "no network";
+}
+
+
$pj->find( nom => "palais de l'elyse", localite => "paris");
my $r = $pj->results;
|
