added zbornik

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

diff --git a/t/6-CROSBI.t b/t/6-CROSBI.t
index 916dcc2..37c6835 100755 (executable)
--- a/t/6-CROSBI.t
+++ b/t/6-CROSBI.t
@@ -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" );
@@ -23,7 +23,7 @@ $hits = 3 unless $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;
 
 }