0UT1S's

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

By Order of Mr.0UT1S

N/A

bad_example.mrc

1.81 KB

bad_example.xml

7.11 KB

3.43 KB

6.83 KB

1.81 KB

2.45 KB

4.60 KB

1.35 KB

9.35 KB

3.42 KB

1.28 KB

1.18 KB

478 bytes

1.51 KB

4.59 KB

2.69 KB

1.74 KB

8.32 KB

3.49 KB

4.76 KB

12.36 KB

4.07 KB

3.10 KB

4.04 KB

3.87 KB

4.76 KB

10.26 KB

540 bytes

marc_16783.phpt

2.43 KB

marc_field_001.phpt

895 bytes

marc_field_002.phpt

559 bytes

marc_field_003.phpt

1.65 KB

marc_field_004.phpt

937 bytes

marc_field_005.phpt

1015 bytes

marc_field_21246.phpt

812 bytes

marc_lint_001.phpt

4.41 KB

marc_lint_002.phpt

2.30 KB

marc_lint_003.phpt

2.73 KB

marc_lint_004.phpt

5.07 KB

marc_lint_005.phpt

2.63 KB

marc_record_001.phpt

561 bytes

marc_subfield_001.phpt

733 bytes

marc_subfield_002.phpt

1.04 KB

marc_xml_001.phpt

7.47 KB

marc_xml_002.phpt

3.54 KB

marc_xml_003.phpt

1.46 KB

marc_xml_004.phpt

2.76 KB

marc_xml_005.phpt

1.48 KB

marc_xml_006.phpt

1.42 KB

marc_xml_007.phpt

986 bytes

marc_xml_008.phpt

12.38 KB

marc_xml_009.phpt

1.09 KB

marc_xml_16642.phpt

930 bytes

marc_xml_namespace.phpt

720 bytes

marc_xml_namespace_prefix.phpt

699 bytes

marc_xml_rsinger.phpt

2.45 KB

4.17 KB

11.38 KB

7.90 KB

3.23 KB

1.12 KB

3.26 KB

177 bytes

728 bytes

--TEST--
marc_lint_002: Tests check041() and check043() called separately
--SKIPIF--
<?php include('tests/skipif.inc'); ?>
<?php include('tests/skipif_noispn.inc'); ?>
--FILE--
<?php
$dir = dirname(__FILE__);
require __DIR__ . '/bootstrap.php';

// Create test harness to allow direct calls to check methods:
class File_MARC_Lint_Test_Harness extends File_MARC_Lint
{
    public function check041($field)
    {
        return parent::check041($field);
    }

public function check043($field)
    {
        return parent::check043($field);
    }

// override warn method to echo instead of store in object:
    protected function warn($msg)
    {
        echo $msg . "\n";
    }
}

$marc_lint = new File_MARC_Lint_Test_Harness();

$field = new File_MARC_Data_Field(
    '041',
    array(
        new File_MARC_Subfield('a', 'end'),             // invalid
        new File_MARC_Subfield('a', 'span'),            // too long
        new File_MARC_Subfield('h', 'far')              // obsolete
    ),
    "0", ""
);
$marc_lint->check041($field);

$field = new File_MARC_Data_Field(
    '041',
    array(
        new File_MARC_Subfield('a', 'endorviwo'),       // invalid
        new File_MARC_Subfield('a', 'spanowpalasba')    // too long and invalid
    ),
    "1", ""
);
$marc_lint->check041($field);

$field = new File_MARC_Data_Field(
    '043',
    array(
        new File_MARC_Subfield('a', 'n-----'),          // 6 chars vs. 7
        new File_MARC_Subfield('a', 'n-us----'),        // 8 chars vs. 7
        new File_MARC_Subfield('a', 'n-ma-us'),         // invalid code
        new File_MARC_Subfield('a', 'e-ur-ai')          // obsolete code
    ),
    "", ""
);
$marc_lint->check043($field);

?>
--EXPECT--
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, (span).
041: Subfield _h, far, may be obsolete.
041: Subfield _a, endorviwo (end), is not valid.
041: Subfield _a, endorviwo (orv), is not valid.
041: Subfield _a, endorviwo (iwo), is not valid.
041: Subfield _a must be evenly divisible by 3 or exactly three characters if ind2 is not 7, (spanowpalasba).
043: Subfield _a must be exactly 7 characters, n-----
043: Subfield _a must be exactly 7 characters, n-us----
043: Subfield _a, n-ma-us, is not valid.
043: Subfield _a, e-ur-ai, may be obsolete.