map all Google Books JSON to MARC21
[Biblio-Z3950.git] / t / 3-GoogleBooks.t
index 3889d7c..62156d0 100755 (executable)
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 7;
+use Test::More tests => 14;
 
 use_ok 'GoogleBooks';
 
@@ -12,7 +12,7 @@ ok( my $o = GoogleBooks->new(), 'new' );
 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;