6 use Test::More tests => 14;
8 my $search = join(' ', @ARGV) || 'krleža';
12 ok( my $o = GoogleBooks->new(), 'new' );
14 ok( my $hits = $o->search( $search ), "search: $search" );
15 like $hits, qr/^\d+$/, "hits: $hits";
19 ok( my $marc = $o->next_marc, "next_marc $_" );