Lines 22-28
use Test::More tests => 1;
Link Here
|
22 |
use LWP::Simple; |
22 |
use LWP::Simple; |
23 |
use JSON; |
23 |
use JSON; |
24 |
my $content = get("https://openlibrary.org/search.json?q=9780201038095"); |
24 |
my $content = get("https://openlibrary.org/search.json?q=9780201038095"); |
25 |
my $data = from_json($content); |
|
|
26 |
my $numFound = $data->{numFound}; |
27 |
|
25 |
|
28 |
ok( $numFound > 0, "The openlibrary ws should return at least 1 result" ); |
26 |
SKIP: { |
|
|
27 |
skip "json has not been retrieved from openlibrary.org", 1 unless defined $content; |
28 |
my $data = from_json($content); |
29 |
my $numFound = $data->{numFound}; |
30 |
|
31 |
ok( $numFound > 0, "The openlibrary ws should return at least 1 result" ); |
32 |
} |
29 |
- |
|
|