projects
/
Biblio-Z3950.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make saerch query param to test script
[Biblio-Z3950.git]
/
t
/
3-GoogleBooks.t
diff --git
a/t/3-GoogleBooks.t
b/t/3-GoogleBooks.t
index
62156d0
..
0266d08
100755
(executable)
--- a/
t/3-GoogleBooks.t
+++ b/
t/3-GoogleBooks.t
@@
-5,11
+5,13
@@
use strict;
use Test::More tests => 14;
use Test::More tests => 14;
+my $search = join(' ', @ARGV) || 'croatia';
+
use_ok 'GoogleBooks';
ok( my $o = GoogleBooks->new(), 'new' );
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 ) {
like $hits, qr/^\d+$/, "hits: $hits";
foreach ( 1 .. 10 ) {