6 use Test::More tests => 7;
8 my $search = join(' ', @ARGV) || 'denis bratko';
12 ok( my $o = CROSBI->new(), 'new' );
14 foreach my $database ( qw( CROSBI-CASOPIS CROSBI-PREPRINT ) ) {
15 diag $o->{database} = $database;
17 ok( my $hits = $o->search( $search ), "search: $search" );
18 like $hits, qr/^\d+$/, "hits: $hits";
20 diag "SQL", $o->{sql};
22 foreach ( 1 .. $hits ) {
24 ok( my $marc = $o->next_marc, "next_marc $_" );