FM / tests

/opt/alt/php71/usr/share/pear/test/File_MARC/tests/

/opt/alt/php71/usr/share/pear/test/File_MARC/tests

Name	Size	Mode	Actions
bad_example.mrc	1853	0644	edit dl rm
bad_example.xml	7280	0644	edit dl rm
bigarchive.xml	3514	0644	edit dl rm
camel.mrc	6990	0644	edit dl rm
example.mrc	1850	0644	edit dl rm
marc_001.phpt	2507	0644	edit dl rm
marc_002.phpt	4707	0644	edit dl rm
marc_003.phpt	1384	0644	edit dl rm
marc_004.phpt	9573	0644	edit dl rm
marc_005.phpt	3503	0644	edit dl rm
marc_006.phpt	1315	0644	edit dl rm
marc_007.phpt	1208	0644	edit dl rm
marc_008.phpt	478	0644	edit dl rm
marc_009.phpt	1542	0644	edit dl rm
marc_010.phpt	4704	0644	edit dl rm
marc_011.phpt	2755	0644	edit dl rm
marc_012.phpt	1786	0644	edit dl rm
marc_013.phpt	8523	0644	edit dl rm
marc_014.phpt	3571	0644	edit dl rm
marc_015.phpt	4876	0644	edit dl rm
marc_016.phpt	12661	0644	edit dl rm
marc_017.phpt	4164	0644	edit dl rm
marc_018.phpt	3177	0644	edit dl rm
marc_019.phpt	4137	0644	edit dl rm
marc_020.phpt	3963	0644	edit dl rm
marc_021.phpt	4876	0644	edit dl rm
marc_022.phpt	10506	0644	edit dl rm
marc_023.phpt	540	0644	edit dl rm
marc_16783.phpt	2490	0644	edit dl rm
marc_field_001.phpt	895	0644	edit dl rm
marc_field_002.phpt	559	0644	edit dl rm
marc_field_003.phpt	1694	0644	edit dl rm
marc_field_004.phpt	937	0644	edit dl rm
marc_field_005.phpt	1015	0644	edit dl rm
marc_field_21246.phpt	812	0644	edit dl rm
marc_lint_001.phpt	4517	0644	edit dl rm
marc_lint_002.phpt	2358	0644	edit dl rm
marc_lint_003.phpt	2795	0644	edit dl rm
marc_lint_004.phpt	5191	0644	edit dl rm
marc_lint_005.phpt	2692	0644	edit dl rm
marc_record_001.phpt	561	0644	edit dl rm
marc_subfield_001.phpt	733	0644	edit dl rm
marc_subfield_002.phpt	1069	0644	edit dl rm
marc_xml_001.phpt	7645	0644	edit dl rm
marc_xml_002.phpt	3622	0644	edit dl rm
marc_xml_003.phpt	1497	0644	edit dl rm
marc_xml_004.phpt	2830	0644	edit dl rm
marc_xml_005.phpt	1515	0644	edit dl rm
marc_xml_006.phpt	1455	0644	edit dl rm
marc_xml_007.phpt	986	0644	edit dl rm
marc_xml_008.phpt	12674	0644	edit dl rm
marc_xml_009.phpt	1113	0644	edit dl rm
marc_xml_16642.phpt	930	0644	edit dl rm
marc_xml_namespace.phpt	720	0644	edit dl rm
marc_xml_namespace_prefix.phpt	699	0644	edit dl rm
marc_xml_rsinger.phpt	2513	0644	edit dl rm
music.mrc	4270	0644	edit dl rm
music.xml	11653	0644	edit dl rm
namespace.xml	8089	0644	edit dl rm
onerecord.xml	3308	0644	edit dl rm
sandburg.mrc	1142	0644	edit dl rm
sandburg.xml	3337	0644	edit dl rm
skipif.inc	177	0644	edit dl rm
xmlescape.mrc	728	0644	edit dl rm

Edit: /opt/alt/php71/usr/share/pear/test/File_MARC/tests/marc_lint_001.phpt (4517B)

--TEST--
marc_lint_001: Full test of Lint suite
--SKIPIF--
<?php include('tests/skipif.inc'); ?>
<?php include('tests/skipif_noispn.inc'); ?>
--FILE--
<?php
$dir = dirname(__FILE__);
require __DIR__ . '/bootstrap.php';
$marc_lint = new File_MARC_Lint();

print "Test records in camel.mrc\n";
$marc_file = new File_MARC($dir . '/' . 'camel.mrc');
while ($marc_record = $marc_file->next()) {
  $warnings = $marc_lint->checkRecord($marc_record);
  foreach ($warnings as $warning) {
    print $warning . "\n";
  }
}

print "\nTest from a constructed record\n";
$rec = new File_MARC_Record();
$rec->setLeader("00000nam  22002538a 4500");
$rec->appendField(
    new File_MARC_Data_Field(
        '041',
        array(
            new File_MARC_Subfield('a', 'end'),
            new File_MARC_Subfield('a', 'fren')
        ),
        "0", ""
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '043',
        array(
            new File_MARC_Subfield('a', 'n-us-pn')
        ),
        "", ""
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '082',
        array(
            new File_MARC_Subfield('a', '005.13/3'),
            // typo 'R' for 'W' and missing 'b' subfield
            new File_MARC_Subfield('R', 'all'),
            new File_MARC_Subfield('2', '21')
        ),
        "0", "4"
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '082',
        array(
            new File_MARC_Subfield('a', '005.13'),
            new File_MARC_Subfield('b', 'Wall'),
            new File_MARC_Subfield('2', '14')
        ),
        "1", "4"
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '100',
        array(
            new File_MARC_Subfield('a', 'Wall, Larry')
        ),
        "1", "4"
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '110',
        array(
            new File_MARC_Subfield('a', "O'Reilly & Associates.")
        ),
        "1", ""
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '245',
        array(
            new File_MARC_Subfield('a', 'Programming Perl / '),
            new File_MARC_Subfield('a', 'Big Book of Perl /'),
            new File_MARC_Subfield('c', 'Larry Wall, Tom Christiansen & Jon Orwant.')
        ),
        "9", "0"
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '250',
        array(
            new File_MARC_Subfield('a', '3rd ed.')
        ),
        "", ""
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '250',
        array(
            new File_MARC_Subfield('a', '3rd ed.')
        ),
        "", ""
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '260',
        array(
            new File_MARC_Subfield('a', 'Cambridge, Mass. : '),
            new File_MARC_Subfield('b', "O'Reilly, "),
            new File_MARC_Subfield('r', '2000.')
        ),
        "", ""
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '590',
        array(
            new File_MARC_Subfield('a', 'Personally signed by Larry.')
        ),
        "4", ""
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '650',
        array(
            new File_MARC_Subfield('a', 'Perl (Computer program language)'),
            new File_MARC_Subfield('0', '(DLC)sh 95010633')
        ),
        "", "0"
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '856',
        array(
            new File_MARC_Subfield('u', 'http://www.perl.com/')
        ),
        "4", "3"
    )
);
$rec->appendField(
    new File_MARC_Data_Field(
        '886',
        array(
            new File_MARC_Subfield('4', 'Some foreign thing'),
            new File_MARC_Subfield('q', 'Another foreign thing')
        ),
        "0", ""
    )
);
$warnings = $marc_lint->checkRecord($rec);
foreach ($warnings as $warning) {
  print $warning . "\n";
}

?>
--EXPECT--
Test records in camel.mrc
100: Indicator 1 must be 0, 1 or 3 but it's "2"
007: Subfields are not allowed in fields lower than 010

Test from a constructed record
1XX: Only one 1XX tag is allowed, but I found 2 of them.
041: Subfield _a, end (end), is not valid.
041: Subfield _a must be evenly divisible by 3 or exactly three characters if ind2 is not 7, (fren).
043: Subfield _a, n-us-pn, is not valid.
082: Subfield _R is not allowed.
100: Indicator 2 must be blank but it's "4"
245: Indicator 1 must be 0 or 1 but it's "9"
245: Subfield _a is not repeatable.
260: Subfield _r is not allowed.
856: Indicator 2 must be blank, 0, 1, 2 or 8 but it's "3"

--TEST-- marc_lint_001: Full test of Lint suite --SKIPIF-- --FILE-- next()) { $warnings = $marc_lint->checkRecord($marc_record); foreach ($warnings as $warning) { print $warning . "\n"; } } print "\nTest from a constructed record\n"; $rec = new File_MARC_Record(); $rec->setLeader("00000nam 22002538a 4500"); $rec->appendField( new File_MARC_Data_Field( '041', array( new File_MARC_Subfield('a', 'end'), new File_MARC_Subfield('a', 'fren') ), "0", "" ) ); $rec->appendField( new File_MARC_Data_Field( '043', array( new File_MARC_Subfield('a', 'n-us-pn') ), "", "" ) ); $rec->appendField( new File_MARC_Data_Field( '082', array( new File_MARC_Subfield('a', '005.13/3'), // typo 'R' for 'W' and missing 'b' subfield new File_MARC_Subfield('R', 'all'), new File_MARC_Subfield('2', '21') ), "0", "4" ) ); $rec->appendField( new File_MARC_Data_Field( '082', array( new File_MARC_Subfield('a', '005.13'), new File_MARC_Subfield('b', 'Wall'), new File_MARC_Subfield('2', '14') ), "1", "4" ) ); $rec->appendField( new File_MARC_Data_Field( '100', array( new File_MARC_Subfield('a', 'Wall, Larry') ), "1", "4" ) ); $rec->appendField( new File_MARC_Data_Field( '110', array( new File_MARC_Subfield('a', "O'Reilly & Associates.") ), "1", "" ) ); $rec->appendField( new File_MARC_Data_Field( '245', array( new File_MARC_Subfield('a', 'Programming Perl / '), new File_MARC_Subfield('a', 'Big Book of Perl /'), new File_MARC_Subfield('c', 'Larry Wall, Tom Christiansen & Jon Orwant.') ), "9", "0" ) ); $rec->appendField( new File_MARC_Data_Field( '250', array( new File_MARC_Subfield('a', '3rd ed.') ), "", "" ) ); $rec->appendField( new File_MARC_Data_Field( '250', array( new File_MARC_Subfield('a', '3rd ed.') ), "", "" ) ); $rec->appendField( new File_MARC_Data_Field( '260', array( new File_MARC_Subfield('a', 'Cambridge, Mass. : '), new File_MARC_Subfield('b', "O'Reilly, "), new File_MARC_Subfield('r', '2000.') ), "", "" ) ); $rec->appendField( new File_MARC_Data_Field( '590', array( new File_MARC_Subfield('a', 'Personally signed by Larry.') ), "4", "" ) ); $rec->appendField( new File_MARC_Data_Field( '650', array( new File_MARC_Subfield('a', 'Perl (Computer program language)'), new File_MARC_Subfield('0', '(DLC)sh 95010633') ), "", "0" ) ); $rec->appendField( new File_MARC_Data_Field( '856', array( new File_MARC_Subfield('u', 'http://www.perl.com/') ), "4", "3" ) ); $rec->appendField( new File_MARC_Data_Field( '886', array( new File_MARC_Subfield('4', 'Some foreign thing'), new File_MARC_Subfield('q', 'Another foreign thing') ), "0", "" ) ); $warnings = $marc_lint->checkRecord($rec); foreach ($warnings as $warning) { print $warning . "\n"; } ?> --EXPECT-- Test records in camel.mrc 100: Indicator 1 must be 0, 1 or 3 but it's "2" 007: Subfields are not allowed in fields lower than 010 Test from a constructed record 1XX: Only one 1XX tag is allowed, but I found 2 of them. 041: Subfield _a, end (end), is not valid. 041: Subfield _a must be evenly divisible by 3 or exactly three characters if ind2 is not 7, (fren). 043: Subfield _a, n-us-pn, is not valid. 082: Subfield _R is not allowed. 100: Indicator 2 must be blank but it's "4" 245: Indicator 1 must be 0 or 1 but it's "9" 245: Subfield _a is not repeatable. 260: Subfield _r is not allowed. 856: Indicator 2 must be blank, 0, 1, 2 or 8 but it's "3"