#!perl -Tw

use strict;

use Test::More tests => 32;

use File::Spec;

BEGIN {
    use_ok( 'MARC::Record' );
    use_ok( 'MARC::File::USMARC' );
}

# Test 1: Testing as_usmarc()
my $marc = MARC::Record->new();
isa_ok( $marc, 'MARC::Record', 'MARC record' );

$marc->leader("00000nam  22?????8a 4500"); # The ????? represents meaningless digits at this point
my $nfields = $marc->add_fields(
	["001","fol05865967"],
	["003","IMchF"],
	["010", "","", 
		a => "   00055799",
		],
	[100, "1","",
		a => "Wall, Larry."
		],
	[245, "1","0",
		a => "Programming Perl / ",
		c => "Larry Wall, Tom Christiansen & Jon Orwant.",
		],
	[250, "", "",
		a => "3rd ed.",
		],
	[260, "", "",
		a => "Cambridge, Mass. : ",
		b => "O'Reilly, ",
		c => "2000.",
		],
	[650, " ","0",
		a => "Perl (Computer program language)",
		],
	[700, "1"," ",
		a => "Christiansen, Tom.",
		],
	[700, "1"," ",
		a => "Orwant, Jon.",
		],
	);

is( $nfields, 10,	'Expected 10 fields' );

my $expected = "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";

is( MARC::File::USMARC->encode( $marc ), $expected,  'encode()' );

is( $marc->as_usmarc(), $expected,  'as_usmarc()' );

my $marc_from_blob = MARC::Record->new_from_usmarc( $expected );
isa_ok( $marc_from_blob, 'MARC::Record', 'MARC record imported from a blob' );
is( $marc->as_usmarc(), $expected,  'MARC from blob encodes correctly' ); 

# Test 2: as_string()
$expected = join( "", <DATA> );
my $generated = $marc->as_formatted;
chomp $expected;
chomp $generated;
ok( $generated eq $expected,	'as_formatted()' );


# Test 3: multiple fields by number
TEST3: {
    my @fields = $marc->field("700");
    is( scalar @fields, 2, 'Multiple 700 tags' );

    my $field = $fields[0];
    isa_ok( $field, "MARC::Field" );
    is( $field->subfield("a"), 'Christiansen, Tom.', '  Tom Christiansen' );

    $field = $fields[1];
    isa_ok( $field, "MARC::Field" );
    is( $field->subfield("a"), 'Orwant, Jon.', '  Jon Orwant' );
}


# Test 4: multiple fields by the ".." notation
TEST4: {
    my @fields = $marc->field("7..");
    is( scalar @fields, 2, 'Multiple 7.. tags' );

    my $field = $fields[0];
    isa_ok( $field, "MARC::Field" );
    is( $field->subfield("a"), 'Christiansen, Tom.', '  Tom Christiansen' );

    $field = $fields[1];
    isa_ok( $field, "MARC::Field" );
    is( $field->subfield("a"), 'Orwant, Jon.', '  Jon Orwant' );
}

# Test 5: field/subfield
is( $marc->subfield( 100, "a" ), "Wall, Larry.", 'Field/subfield lookup' );

# Test 6: Reading from disk
my $filename = File::Spec->catfile( 't', 'camel.usmarc' );
my $file = MARC::File::USMARC->in( $filename );
isa_ok( $file, 'MARC::File', "Opened input file" );

my $diskmarc;
for my $n ( 1..8 ) {
	$diskmarc = $file->next();
	isa_ok( $diskmarc, 'MARC::Record', "  Record #$n" );
}
	
if ( $diskmarc ) {
	is( $diskmarc->subfield(245,"c"), $marc->subfield(245,"c"), "Disk MARC matches built MARC" );
}
$file->close;


# Test 7: return from field() when nothing matches
TEST7: {
    my @fields = $marc->field( '999' );  # doesn't exist in the record
    is( scalar @fields, 0, "nothing returned for tag 999--array context" );
    my $field = $marc->field( '999' );   # doesn't exist in the record
    ok( !defined $field, "nothing returned for tag 999-scalar context" );
}


__END__
LDR 00397nam  22001458a 4500
001     fol05865967
003     IMchF
010    _a   00055799
100 1  _aWall, Larry.
245 10 _aProgramming Perl / 
       _cLarry Wall, Tom Christiansen & Jon Orwant.
250    _a3rd ed.
260    _aCambridge, Mass. : 
       _bO'Reilly, 
       _c2000.
650  0 _aPerl (Computer program language)
700 1  _aChristiansen, Tom.
700 1  _aOrwant, Jon.