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
29
30
|
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'elyse", localite => "paris");
my $r = $pj->results;
ok($r->name, "Prsidence de la Rpublique Palais de l'Elyse");
ok($r->address, "55 e Fbg St Honor 75008 Paris");
ok($r->phone->[0], "01 42 92 81 00");
ok($pj->has_more, 1);
$pj->find( activite => "plombier", localite => "marseille", limit => 4);
my @r = $pj->results;
ok($#r, 3);
|
