use warnings;
use strict;
-use Test::More tests => 7;
+use Test::More tests => 14;
use_ok 'GoogleBooks';
ok( my $hits = $o->search( 'croatia' ), 'search' );
like $hits, qr/^\d+$/, "hits: $hits";
-foreach ( 1 .. 3 ) {
+foreach ( 1 .. 10 ) {
ok( my $marc = $o->next_marc, "next_marc $_" );
diag $marc;