|
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 |
- |
|
|