X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F6-CROSBI.t;h=4f2f1df5f4db5fa6a0d81437e45ed9e7626d8919;hb=f26d4b82ad95b3975d8315a77928d3a1897090e4;hp=42a3c4767dc2fa369b36e18284906f5b90ca6ace;hpb=127da35c5a0895c1627e261c076a108034191182;p=Biblio-Z3950.git

diff --git a/t/6-CROSBI.t b/t/6-CROSBI.t
index 42a3c47..4f2f1df 100755
--- a/t/6-CROSBI.t
+++ b/t/6-CROSBI.t
@@ -11,14 +11,19 @@ use_ok 'CROSBI';
 
 ok( my $o = CROSBI->new(), 'new' );
 
+foreach my $database ( qw( CROSBI-CASOPIS CROSBI-PREPRINT ) ) {
+	diag $o->{database} = $database;
+
 ok( my $hits = $o->search( $search ), "search: $search" );
 like $hits, qr/^\d+$/, "hits: $hits";
 
 diag "SQL", $o->{sql};
 
-foreach ( 1 .. 3 ) {
+foreach ( 1 .. $hits ) {
 
 	ok( my $marc = $o->next_marc, "next_marc $_" );
 	diag $marc;
 
 }
+
+} # database