better example with repetable field and subfields

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@43 49f9634a-d7ec-0310-8e6b-ec35c6cc8804

diff --git a/t/003_marc-repeatable.t b/t/003_marc-repeatable.t
index 981a551..2df16b5 100755 (executable)
--- 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' );
 

diff --git a/t/koha-105405.mrc b/t/koha-105405.mrc
deleted file mode 100644 (file)
index 6021253..0000000
--- a/t/koha-105405.mrc
+++ /dev/null
@@ -1 +0,0 @@
-01637nam a2200313ui 4500008004100000020001800041035002100059040003300080041000800113080001400121100002500135245013400160260004600294300003500340440001800375500003300393504003200426504001100458653010800469942004700577952015600624952015900780952016900939952015701108991001301265991001301278992001301291999001901304\1e050519s2001    |||a   |||||||||| ||hrv|d\1e  \1fa953-6483-66-1\1e  \1faHR-ZaFF filL2341\1e  \1faHR-ZaFF\1fbhrv\1fcHR-ZaFF\1feppiak\1e1 \1fahrv\1e  \1fa159.9.015\1e1 \1faWaal, Frans B. M. de\1e10\1faPrirodno dobri :\1fbpodrijetlo ispravnog i pogrešnog kod ljudi i drugih životinja /\1fcFrans de Waal ; [prijevod Ljerka Pustišek].\1e  \1faZagreb :\1fbNaklada Jesenski i Turk,\1fc2001.\1e  \1fa367 str. : \1fbilustr. ; \1fc21 cm\1e 0\1faBiblioteka 42\1e  \1faPrijevod djela: Good natured\1e  \1faBibliografija: str. 321-346\1e  \1faKazalo\1e  \1faEvolucionistička etika -- Teorija\1faŽivotinje -- Ponašanje\1faPonašanje -- Evolucionističko gledište\1e  \1fbLIB\1fcKNJ\1fdFIL | Sig.:\1fhBA\1fiWAA p\1f6BA_WAA_P\1e  \1fw2009-03-04\1fp1302005449\1fr2010-03-11\1f40\1f00\1f6EC17_WAAL_P\1f9287884\1fbFFZG\1f10\1foEC17 WAAL P\1fd2009-03-04\1ftkomIII-4404\1fz0\1f8KOM\1f70\1fcOPEC\1fyKNJ\1fs2010-02-10\1fl1\1faFFZG\1e  \1fw2009-03-04\1fp1302005448\1fr2010-04-09\1f40\1f00\1f6EC17_WAAL_P\1f9287883\1fbFFZG\1fm2\1f10\1foEC17 WAAL P\1fd2009-03-04\1ftkomIII-4403\1fz0\1f8KOM\1f70\1fcOPEC\1fyKNJ\1fs2010-01-27\1fl1\1faFFZG\1e  \1fw2008-10-28\1fp1301134744\1fr2010-07-02\1f40\1f00\1f6BA031_WAA_P\1f9134744\1fbFFZG\1fm2\1f10\1foBA03.1 WAA p\1fd2008-10-28\1fq2010-07-16\1ftfil14578\1fz0\1f8FIL\1f70\1fcOPBA\1fyKNJ\1fs2010-07-02\1fl6\1faFFZG\1e  \1fw2008-10-28\1fp1301134743\1fr2010-09-09\1f40\1f00\1f6BA031_WAA_P\1f9134743\1fbFFZG\1fm4\1f10\1foBA03.1 WAA p\1fd2008-10-28\1ftfil15072\1fz0\1f8FIL\1f70\1fcOPBA\1fyKNJ\1fs2010-06-30\1fl3\1faFFZG\1e  \1fafil15072\1e  \1fafil14578\1e  \1fa4564\1fbLM\1e  \1fc105405\1fd105405\1e\1d
\ No newline at end of file

diff --git a/t/koha-232766.mrc b/t/koha-232766.mrc
new file mode 100644 (file)
index 0000000..0306d6b
--- /dev/null
+++ b/t/koha-232766.mrc
@@ -0,0 +1 @@
+02600cam a22003617i 4500005001700000008004100017020001800058040004100076041000800117044000700125080001500132080001200147100002200159245003900181260012300220300003300343440005400376504003200430653001900462653004100481942003600522952017100558952017100729952015900900952017101059952017101230952015901401952015901560952017101719952015901890952017002049999001902219\1e20090505094831.0\1e090128s2009    hr a    r     000 0 hrv  \1e  \1fa9789531753319\1e  \1faHR NSK\1fbhrv\1fcHR NSK\1feppiak\1fdHR-ZaFF \1e0 \1fahrv\1e  \1fahr\1e  \1fa930.25:004\1e  \1fa025:004\1e1 \1faStančić, Hrvoje\1e10\1faDigitalizacija /\1fcHrvoje Stančić\1e  \1faZagreb :\1fbZavod za informacijske studije Odsjeka za informacijske znanosti Filozofskog fakulteta Sveučilišta,\1fc2009.\1e  \1fa171 str. :\1fbilustr. ;\1fc24 cm\1e 0\1faRadovi Zavoda za informacijske studije ;\1fvknj. 19\1e  \1faBibliografija: str. 165-171\1e  \1fadigitalizacija\1e  \1faknjižnična građa\1faarhivska građa\1e  \1fcKNJ\1fhBG04.8\1fiSTA d\1f6BG048_STA_D\1e  \1fw2009-05-05\1fp1302008428\1fr2010-07-02\1f40\1f00\1f6BG048_STA_D\1f9292858\1fbFFZG\1fm5\1f10\1foBG04.8 STA d\1fd2009-05-05\1fq2010-09-13\1ftizn18/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-07-02\1fl5\1faFFZG\1e  \1fw2009-05-05\1fp1302008427\1fr2010-05-21\1f40\1f00\1f6BG048_STA_D\1f9292857\1fbFFZG\1fm5\1f10\1foBG04.8 STA d\1fd2009-05-05\1fq2010-11-23\1ftizn17/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-05-21\1fl4\1faFFZG\1e  \1fw2009-05-05\1fp1302008426\1fr2010-09-17\1f40\1f00\1f6BG048_STA_D\1f9292856\1fbFFZG\1fm9\1f10\1foBG04.8 STA d\1fd2009-05-05\1ftizn16/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-07-07\1fl9\1faFFZG\1e  \1fw2009-05-05\1fp1302008425\1fr2010-03-11\1f40\1f00\1f6BG048_STA_D\1f9292855\1fbFFZG\1fm7\1f10\1foBG04.8 STA d\1fd2009-05-05\1fq2011-03-18\1ftizn15/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-03-11\1fl5\1faFFZG\1e  \1fw2009-05-05\1fp1302008424\1fr2010-04-30\1f40\1f00\1f6BG048_STA_D\1f9292854\1fbFFZG\1fm4\1f10\1foBG04.8 STA d\1fd2009-05-05\1fq2010-11-03\1ftizn14/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-04-30\1fl7\1faFFZG\1e  \1fw2009-05-05\1fp1302008423\1fr2010-09-09\1f40\1f00\1f6BG048_STA_D\1f9292853\1fbFFZG\1fm2\1f10\1foBG04.8 STA d\1fd2009-05-05\1ftizn13/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-07-12\1fl5\1faFFZG\1e  \1fw2009-05-05\1fp1302008422\1fr2010-05-06\1f40\1f00\1f6BG048_STA_D\1f9292852\1fbFFZG\1fm7\1f10\1foBG04.8 STA d\1fd2009-05-05\1ftizn12/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-03-23\1fl7\1faFFZG\1e  \1fw2009-05-05\1fp1302008421\1fr2010-07-12\1f40\1f00\1f6BG048_STA_D\1f9292851\1fbFFZG\1fm9\1f10\1foBG04.8 STA d\1fd2009-05-05\1fq2010-09-23\1ftizn11/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-07-12\1fl6\1faFFZG\1e  \1fw2009-05-05\1fp1302008420\1fr2010-09-13\1f40\1f00\1f6BG048_STA_D\1f9292850\1fbFFZG\1fm6\1f10\1foBG04.8 STA d\1fd2009-05-05\1ftizn10/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-09-13\1fl9\1faFFZG\1e  \1fw2009-05-05\1fp1302008415\1fr2010-09-10\1f40\1f00\1f6BG048_STA_D\1f9292845\1fbFFZG\1fm7\1f10\1foBG04.8 STA d\1fd2009-05-05\1fq2010-09-24\1ftizn9/2009\1fz0\1f8IZN\1f70\1fcOPBG\1fyKNJ\1fs2010-09-10\1fl7\1faFFZG\1e  \1fc232766\1fd232766\1e\1d
\ No newline at end of file