6 use Test::More tests => 11;
8 my $search = join(' ', @ARGV) || 'fti_au: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 $hits = 3 unless $ENV{DEBUG};
24 foreach ( 1 .. $hits ) {
26 ok( my $marc = $o->next_marc, "next_marc $_" );