X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F6-CROSBI.t;h=2a01ef6199040327b1ead80ec0abd72eca16f558;hb=a0d3a60cd95afff5241f8e2d3a2955ecdffd1395;hp=916dcc2b48e5aa6dc2b551894dc479876c38aa5a;hpb=18a4315db8c49fd64ca248a402e471915de12e24;p=Biblio-Z3950.git

diff --git a/t/6-CROSBI.t b/t/6-CROSBI.t
index 916dcc2..2a01ef6 100755
--- a/t/6-CROSBI.t
+++ b/t/6-CROSBI.t
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 11;
+use Test::More tests => 21;
 
 my $search = join(' ', @ARGV) || 'fti_au:denis bratko';
 
@@ -11,7 +11,7 @@ use_ok 'CROSBI';
 
 ok( my $o = CROSBI->new(), 'new' );
 
-foreach my $database ( qw( CROSBI-CASOPIS CROSBI-PREPRINT ) ) {
+foreach my $database ( qw( CROSBI-CASOPIS CROSBI-PREPRINT CROSBI-RKNJIGA CROSBI-ZBORNIK ) ) {
 	diag $o->{database} = $database;
 
 ok( my $hits = $o->search( $search ), "search: $search" );
@@ -19,11 +19,11 @@ like $hits, qr/^\d+$/, "hits: $hits";
 
 diag "SQL", $o->{sql};
 
-$hits = 3 unless $ENV{DEBUG};
+$hits = 3 if $hits > 3 && ! $ENV{DEBUG};
 
 foreach ( 1 .. $hits ) {
 
-	ok( my $marc = $o->next_marc, "next_marc $_" );
+	ok( my $marc = $o->next_marc, "next_marc $o->{database} $_" );
 	diag $marc;
 
 }