#!perl -Tw
use strict;
use Test::More tests => 3;
BEGIN {
use_ok( 'MARC::Record' );
}
sub wanted {
my $tag = shift;
my $data = shift;
return $tag == 245 || $tag >= 600;
}
my $blob = "00397nam 22001458a 4500001001200000003000600012010001600018100001700034245006800051250001200119260004300131650003700174700002300211700001700234\x1Efol05865967\x1EIMchF\x1E \x1Fa 00055799\x1E1 \x1FaWall, Larry.\x1E10\x1FaProgramming Perl / \x1FcLarry Wall, Tom Christiansen & Jon Orwant.\x1E \x1Fa3rd ed.\x1E \x1FaCambridge, Mass. : \x1FbO'Reilly, \x1Fc2000.\x1E 0\x1FaPerl (Computer program language)\x1E1 \x1FaChristiansen, Tom.\x1E1 \x1FaOrwant, Jon.\x1E\x1D";
my $marc = MARC::Record->new_from_usmarc( $blob, \&wanted );
isa_ok( $marc, "MARC::Record" );
my $expected = join( "", <DATA> );
chomp $expected;
my $generated = $marc->as_formatted;
chomp $generated;
is( $generated, $expected, 'as_formatted()' );
__END__
LDR 00397nam 22001458a 4500
245 10 _aProgramming Perl /
_cLarry Wall, Tom Christiansen & Jon Orwant.
650 0 _aPerl (Computer program language)
700 1 _aChristiansen, Tom.
700 1 _aOrwant, Jon.