use Test::More tests => 14;
+my $search = join(' ', @ARGV) || 'croatia';
+
use_ok 'GoogleBooks';
ok( my $o = GoogleBooks->new(), 'new' );
-ok( my $hits = $o->search( 'croatia' ), 'search' );
+ok( my $hits = $o->search( $search ), "search: $search" );
like $hits, qr/^\d+$/, "hits: $hits";
foreach ( 1 .. 10 ) {