--TEST-- marc_009: Parse a record where leader record length != real record length --SKIPIF-- <?php include('tests/skipif.inc'); ?> --FILE-- <?php $dir = dirname(__FILE__); require __DIR__ . '/bootstrap.php'; $marc_file = new File_MARC($dir . '/' . 'wronglen.mrc'); while ($marc_record = $marc_file->next()) { print $marc_record; print "\n"; print "WARNINGS:\n"; foreach ($marc_record->getWarnings() as $warning) { print " * $warning\n"; } } ?> --EXPECT-- LDR 00727nam 2200205 a 4500 001 03-0016458 005 19971103184734.0 008 970701s1997 oru u000 0 eng u 035 _a(Sirsi) a351664 050 00 _aML270.2 _b.A6 1997 100 1 _aAnthony, James R. 245 00 _aFrench baroque music from Beaujoyeulx to Rameau 250 _aRev. and expanded ed. 260 _aPortland, OR : _bAmadeus Press, _c1997. 300 _a586 p. : _bmusic 650 0 _aMusic _<France _y16th century _xHistory and criticism. 650 0 _aMusic _zFrance _y17th century _xHistory and criticism. 650 0 _aMusic _zFrance _y18th century _xHistory and criticism. 949 _aML 270.2 A6 1997 _wLC _i30007006841505 _rY _tBOOKS _lHUNT-CIRC _mHUNEXTRALON WARNINGS: * Invalid record length: Leader says "00727" bytes; actual record length is "741" * Field for tag "949" does not end with an end of field character * Field for tag "596" does not end with an end of field character * Invalid indicators "GSTUFF" forced to blanks for tag "596"