#!perl

#Tests for field 880 and for subfield 6

use strict;
use warnings;
use File::Spec;
use Test::More tests=>6;

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

FROM_TEXT: {
    my $marc = MARC::Record->new();
    isa_ok( $marc, 'MARC::Record', 'MARC record' );

    $marc->leader("00000nam  22002538a 4500"); 

    my $nfields = $marc->add_fields(
        ['001', 'ttt07000001 '],
        ['003', 'TEST '],
        ['008', '070520s2007    ilu           000 0 eng d',
        ],
        ['040', "", "",
            a => 'TEST',
            c => 'TEST',
         ],
        ['050', "", "4",
            a => 'RZ999',
            b => '.J66 2007',
         ],
        ['082', "0", "4",
            a => '615.8/9',
            2 => '22'
         ],
        [100, "1","", 
            a => "Jones, John.",
        ],
        [245, "1","0",
            6 => "880-02",
            a => "Test 880.",
        ],
        [260, "", "",
            a => "Mount Morris, Ill. :",
            b => "B. Baldus,",
            c => "2007.",
            ],
        [300, "", "",
            a => "1 v. ;",
            c => "23 cm.",
        ],
        [880, "1", "0",
            6 => '245-02/$1',
            a => "<Title in CJK script>.",
        ],
    );
    is( $nfields, 11, "All the fields added OK" );

    my @expected = (
#        (undef),
        #q{},
    );

    my $lint = new MARC::Lint;
    isa_ok( $lint, 'MARC::Lint' );

    $lint->check_record( $marc );
    my @warnings = $lint->warnings;
    while ( @warnings ) {
        my $expected = shift @expected;
        my $actual = shift @warnings;

        is( $actual, $expected, "Checking expected messages" );
    }
    is( scalar @expected, 0, "All expected messages exhausted." );
}