From 01a39d84c74ffc4a3553eff9a57a10ae0231a850 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 23 Sep 2010 13:14:37 +0000 Subject: [PATCH] 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 --- t/003_marc-repeatable.t | 7 ++++--- t/koha-105405.mrc | 1 - t/koha-232766.mrc | 1 + 3 files changed, 5 insertions(+), 4 deletions(-) delete mode 100644 t/koha-105405.mrc create mode 100644 t/koha-232766.mrc 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' ); diff --git a/t/koha-105405.mrc b/t/koha-105405.mrc deleted file mode 100644 index 6021253..0000000 --- a/t/koha-105405.mrc +++ /dev/null @@ -1 +0,0 @@ -01637nam a2200313ui 4500008004100000020001800041035002100059040003300080041000800113080001400121100002500135245013400160260004600294300003500340440001800375500003300393504003200426504001100458653010800469942004700577952015600624952015900780952016900939952015701108991001301265991001301278992001301291999001901304050519s2001 |||a |||||||||| ||hrv|d a953-6483-66-1 aHR-ZaFF filL2341 aHR-ZaFFbhrvcHR-ZaFFeppiak1 ahrv a159.9.0151 aWaal, Frans B. M. de10aPrirodno dobri :bpodrijetlo ispravnog i pogrešnog kod ljudi i drugih životinja /cFrans de Waal ; [prijevod Ljerka Pustišek]. aZagreb :bNaklada Jesenski i Turk,c2001. a367 str. : bilustr. ; c21 cm 0aBiblioteka 42 aPrijevod djela: Good natured aBibliografija: str. 321-346 aKazalo aEvolucionistička etika -- TeorijaaŽivotinje -- PonašanjeaPonašanje -- Evolucionističko gledište bLIBcKNJdFIL | Sig.:hBAiWAA p6BA_WAA_P w2009-03-04p1302005449r2010-03-1140006EC17_WAAL_P9287884bFFZG10oEC17 WAAL Pd2009-03-04tkomIII-4404z08KOM70cOPECyKNJs2010-02-10l1aFFZG w2009-03-04p1302005448r2010-04-0940006EC17_WAAL_P9287883bFFZGm210oEC17 WAAL Pd2009-03-04tkomIII-4403z08KOM70cOPECyKNJs2010-01-27l1aFFZG w2008-10-28p1301134744r2010-07-0240006BA031_WAA_P9134744bFFZGm210oBA03.1 WAA pd2008-10-28q2010-07-16tfil14578z08FIL70cOPBAyKNJs2010-07-02l6aFFZG w2008-10-28p1301134743r2010-09-0940006BA031_WAA_P9134743bFFZGm410oBA03.1 WAA pd2008-10-28tfil15072z08FIL70cOPBAyKNJs2010-06-30l3aFFZG afil15072 afil14578 a4564bLM c105405d105405 \ No newline at end of file diff --git a/t/koha-232766.mrc b/t/koha-232766.mrc new file mode 100644 index 0000000..0306d6b --- /dev/null +++ b/t/koha-232766.mrc @@ -0,0 +1 @@ +02600cam a22003617i 450000500170000000800410001702000180005804000410007604100080011704400070012508000150013208000120014710000220015924500390018126001230022030000330034344000540037650400320043065300190046265300410048194200360052295201710055895201710072995201590090095201710105995201710123095201590140195201590156095201710171995201590189095201700204999900190221920090505094831.0090128s2009 hr a r 000 0 hrv  a9789531753319 aHR NSKbhrvcHR NSKeppiakdHR-ZaFF 0 ahrv ahr a930.25:004 a025:0041 aStančić, Hrvoje10aDigitalizacija /cHrvoje Stančić aZagreb :bZavod za informacijske studije Odsjeka za informacijske znanosti Filozofskog fakulteta Sveučilišta,c2009. a171 str. :bilustr. ;c24 cm 0aRadovi Zavoda za informacijske studije ;vknj. 19 aBibliografija: str. 165-171 adigitalizacija aknjižnična građaaarhivska građa cKNJhBG04.8iSTA d6BG048_STA_D w2009-05-05p1302008428r2010-07-0240006BG048_STA_D9292858bFFZGm510oBG04.8 STA dd2009-05-05q2010-09-13tizn18/2009z08IZN70cOPBGyKNJs2010-07-02l5aFFZG w2009-05-05p1302008427r2010-05-2140006BG048_STA_D9292857bFFZGm510oBG04.8 STA dd2009-05-05q2010-11-23tizn17/2009z08IZN70cOPBGyKNJs2010-05-21l4aFFZG w2009-05-05p1302008426r2010-09-1740006BG048_STA_D9292856bFFZGm910oBG04.8 STA dd2009-05-05tizn16/2009z08IZN70cOPBGyKNJs2010-07-07l9aFFZG w2009-05-05p1302008425r2010-03-1140006BG048_STA_D9292855bFFZGm710oBG04.8 STA dd2009-05-05q2011-03-18tizn15/2009z08IZN70cOPBGyKNJs2010-03-11l5aFFZG w2009-05-05p1302008424r2010-04-3040006BG048_STA_D9292854bFFZGm410oBG04.8 STA dd2009-05-05q2010-11-03tizn14/2009z08IZN70cOPBGyKNJs2010-04-30l7aFFZG w2009-05-05p1302008423r2010-09-0940006BG048_STA_D9292853bFFZGm210oBG04.8 STA dd2009-05-05tizn13/2009z08IZN70cOPBGyKNJs2010-07-12l5aFFZG w2009-05-05p1302008422r2010-05-0640006BG048_STA_D9292852bFFZGm710oBG04.8 STA dd2009-05-05tizn12/2009z08IZN70cOPBGyKNJs2010-03-23l7aFFZG w2009-05-05p1302008421r2010-07-1240006BG048_STA_D9292851bFFZGm910oBG04.8 STA dd2009-05-05q2010-09-23tizn11/2009z08IZN70cOPBGyKNJs2010-07-12l6aFFZG w2009-05-05p1302008420r2010-09-1340006BG048_STA_D9292850bFFZGm610oBG04.8 STA dd2009-05-05tizn10/2009z08IZN70cOPBGyKNJs2010-09-13l9aFFZG w2009-05-05p1302008415r2010-09-1040006BG048_STA_D9292845bFFZGm710oBG04.8 STA dd2009-05-05q2010-09-24tizn9/2009z08IZN70cOPBGyKNJs2010-09-10l7aFFZG c232766d232766 \ No newline at end of file -- 2.20.1