two different crosbi databases searching different tables

[Biblio-Z3950.git] / t / 6-CROSBI.t

diff --git a/t/6-CROSBI.t b/t/6-CROSBI.t
index 6f5ca74..4f2f1df 100755 (executable)
--- a/t/6-CROSBI.t
+++ b/t/6-CROSBI.t
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 5;
+use Test::More tests => 7;
 
 my $search = join(' ', @ARGV) || 'denis bratko';
 
@@ -11,6 +11,9 @@ 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";
 
@@ -22,3 +25,5 @@ foreach ( 1 .. $hits ) {
        diag $marc;
 
 }
+
+} # database