View | Details | Raw Unified | Return to bug 16649
Collapse All | Expand All

(-)a/t/OpenLibrarySearch.t (-4 / +7 lines)
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
- 

Return to bug 16649