X-Git-Url: http://git.rot13.org/?p=MARC-Fast;a=blobdiff_plain;f=t%2F003_marc-repeatable.t;h=2df16b53391f5dee87a87e22f14bcd0efe5a3a27;hp=981a551844e4c8e32e53fc3ef64400cdd79f6ff2;hb=614bfc043eeaa5f8ae8de780d281d229021efc64;hpb=eec94e2b3979b427ee2bb064c76ed364f2d53568

diff --git a/t/003_marc-repeatable.t b/t/003_marc-repeatable.t
index 981a551..2df16b5 100755
--- a/t/003_marc-repeatable.t
+++ b/t/003_marc-repeatable.t
@@ -3,7 +3,7 @@
 use strict;
 use lib 'lib';
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 use Data::Dump qw/dump/;
 
 BEGIN {
@@ -13,7 +13,7 @@ BEGIN {
 
 my $debug = shift @ARGV;
 
-my $marc_file = 't/koha-105405.mrc';
+my $marc_file = 't/koha-232766.mrc';
 
 ok(my $marc = MARC::Fast->new(
 	marcdb => $marc_file,
@@ -27,5 +27,6 @@ diag dump $rec if $debug;
 ok(my $hash = $marc->to_hash(1, include_subfields => 1), "to_hash 1 include_subfields");
 diag dump $hash if $debug;
 
-isa_ok( $hash->{653}->[0]->{'a'}, 'ARRAY' );
+ok( ref $hash->{653}->[0]->{'a'} eq '', 'first occurance not repeatable' );
+ok( ref $hash->{653}->[1]->{'a'} eq 'ARRAY', 'second is repetable' );