Current File : //opt/alt/php81/usr/share/pear/test/File_MARC/tests/marc_014.phpt |
--TEST--
marc_014: Add fields to a MARC record
--SKIPIF--
<?php include('tests/skipif.inc'); ?>
--FILE--
<?php
$dir = dirname(__FILE__);
require __DIR__ . '/bootstrap.php';
// Get ourselves a MARC record
$marc_file = new File_MARC($dir . '/' . 'example.mrc');
$marc_record = $marc_file->next();
// create some subfields
$subfields[] = new File_MARC_Subfield('a', 'nothing');
$subfields[] = new File_MARC_Subfield('z', 'everything');
// create a data field
$data_field = new File_MARC_Data_Field('100', $subfields, '0');
// append the data field
$marc_record->appendField($data_field);
// create a control field
$ctrl_field = new File_MARC_Control_Field('001', '01234567890');
// prepend the control field
$marc_record->prependField($ctrl_field);
// reproduce test case reported by Mark Jordan
$subfields_966_2[] = new File_MARC_Subfield('l', 'web');
$subfields_966_2[] = new File_MARC_Subfield('r', '0');
$subfields_966_2[] = new File_MARC_Subfield('s', 'b');
$subfields_966_2[] = new File_MARC_Subfield('i', '49');
$subfields_966_2[] = new File_MARC_Subfield('c', '1');
$field_966_2 = new File_MARC_Data_Field('966', $subfields_966_2, null, null);
$marc_record->appendField($field_966_2);
// let's see the results
print utf8_encode($marc_record);
print "\n";
?>
--EXPECT--
LDR 01850 2200517 4500
001 01234567890
001 0000000044
003 EMILDA
008 980120s1998 fi j 000 0 swe
020 _a9515008808
_cFIM 72:00
035 _99515008808
040 _aNB
042 _9NB
_9SEE
084 _aHcd,u
_2kssb/6
084 _5NB
_auHc
_2kssb
084 _5SEE
_aHcf
_2kssb/6
084 _5Q
_aHcd,uf
_2kssb/6
100 1 _aJansson, Tove,
_d1914-2001
245 04 _aDet osynliga barnet och andra berättelser /
_cTove Jansson
250 _a7. uppl.
260 _aHelsingfors :
_bSchildt,
_c1998 ;
_e(Falun :
_fScandbook)
300 _a166, [4] s. :
_bill. ;
_c21 cm
440 0 _aMumin-biblioteket,
_x99-0698931-9
500 _aOriginaluppl. 1962
599 _aLi: S
740 4 _aDet osynliga barnet
775 1 _z951-50-0385-7
_w9515003857
_907
841 _5Li
_axa
_b0201080u 0 4000uu |000000
_e1
841 _5SEE
_axa
_b0201080u 0 4000uu |000000
_e1
841 _5L
_axa
_b0201080u 0 4000uu |000000
_e1
841 _5NB
_axa
_b0201080u 0 4000uu |000000
_e1
841 _5Q
_axa
_b0201080u 0 4000uu |000000
_e1
841 _5S
_axa
_b0201080u 0 4000uu |000000
_e1
852 _5NB
_bNB
_cNB98:12
_hplikt
_jR, 980520
852 _5Li
_bLi
_cCNB
_hh,u
852 _5SEE
_bSEE
852 _5Q
_bQ
_j98947
852 _5L
_bL
_c0100
_h98/
_j3043 H
852 _5S
_bS
_hSv97
_j7235
900 1s _aYanson, Tobe,
_d1914-2001
_uJansson, Tove,
_d1914-2001
900 1s _aJanssonová, Tove,
_d1914-2001
_uJansson, Tove,
_d1914-2001
900 1s _aJansone, Tuve,
_d1914-2001
_uJansson, Tove,
_d1914-2001
900 1s _aJanson, Tuve,
_d1914-2001
_uJansson, Tove,
_d1914-2001
900 1s _aJansson, Tuve,
_d1914-2001
_uJansson, Tove,
_d1914-2001
900 1s _aJanssonova, Tove,
_d1914-2001
_uJansson, Tove,
_d1914-2001
976 2 _aHcd,u
_bSkönlitteratur
005 20050204111518.0
100 0 _anothing
_zeverything
966 _lweb
_r0
_sb
_i49
_c1