#!perl



#This tests check_245() called separately

#See lint.t for testing through check_record()



use strict;

use warnings;

use Test::More tests=>60;



BEGIN { use_ok( 'MARC::Field' ); }

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



my $lint = new MARC::Lint;

isa_ok( $lint, 'MARC::Lint' );



my @fields = ( 

    [245, '0', '0', 'a', 'Subfield a.'],

    [245, '0', '0', 'b', 'no subfield a.'],

    [245, '0', '0', 'a', 'No period at end'],

    [245, '0', '0', 'a', 'Other punctuation not followed by period!'],

    [245, '0', '0', 'a', 'Other punctuation not followed by period?'],

    [245, '0', '0', 'a', 'Precedes sub c', 'c', 'not preceded by space-slash.'],

    [245, '0', '0', 'a', 'Precedes sub c/', 'c', 'not preceded by space-slash.'],

    [245, '0', '0', 'a', 'Precedes sub c /', 'c', 'initials in sub c B. B.'],

    [245, '0', '0', 'a', 'Precedes sub c /', 'c', 'initials in sub c B.B. (no warning).'],

    [245, '0', '0', 'a', 'Precedes sub b', 'b', 'not preceded by proper punctuation.'],

    [245, '0', '0', 'a', 'Precedes sub b=', 'b', 'not preceded by proper punctuation.'],

    [245, '0', '0', 'a', 'Precedes sub b:', 'b', 'not preceded by proper punctuation.'],

    [245, '0', '0', 'a', 'Precedes sub b;', 'b', 'not preceded by proper punctuation.'],

    [245, '0', '0', 'a', 'Precedes sub b =', 'b', 'preceded by proper punctuation.'],

    [245, '0', '0', 'a', 'Precedes sub b :', 'b', 'preceded by proper punctuation.'],

    [245, '0', '0', 'a', 'Precedes sub b ;', 'b', 'preceded by proper punctuation.'],

    [245, '0', '0', 'a', 'Precedes sub h ', 'h', '[videorecording].'],

    [245, '0', '0', 'a', 'Precedes sub h-- ', 'h', '[videorecording] :', 'b', 'with elipses dash before h.'],

    [245, '0', '0', 'a', 'Precedes sub h-- ', 'h', 'videorecording :', 'b', 'without brackets around GMD.'],

    [245, '0', '0', 'a', 'Precedes sub n.', 'n', 'Number 1.'],

    [245, '0', '0', 'a', 'Precedes sub n', 'n', 'Number 2.'],

    [245, '0', '0', 'a', 'Precedes sub n.', 'n', 'Number 3.', 'p', 'Sub n has period not comma.'],

    [245, '0', '0', 'a', 'Precedes sub n.', 'n', 'Number 3,', 'p', 'Sub n has comma.'],

    [245, '0', '0', 'a', 'Precedes sub p.', 'p', 'Sub a has period.'],

    [245, '0', '0', 'a', 'Precedes sub p', 'p', 'Sub a has no period.'],

    [245, '0', '0', 'a', 'The article.'],

    [245, '0', '4', 'a', 'The article.'],

    [245, '0', '2', 'a', 'An article.'],

    [245, '0', '0', 'a', "L\'article."],

    [245, '0', '2', 'a', 'A la mode.'],

    [245, '0', '5', 'a', 'The "quoted article".'],

    [245, '0', '5', 'a', 'The (parenthetical article).'],

    [245, '0', '6', 'a', '(The) article in parentheses).'],

    [245, '0', '9', 'a', "\"(The)\" \'article\' in quotes and parentheses)."],

    [245, '0', '5', 'a', '[The supplied title].'],





);



my @expected = (

    q{245: Must have a subfield _a.},

    q{245: First subfield must be _a, but it is _b},

    q{245: Must end with . (period).},

    q{245: MARC21 allows ? or ! as final punctuation but LCRI 1.0C, Nov. 2003, requires period.},

    q{245: MARC21 allows ? or ! as final punctuation but LCRI 1.0C, Nov. 2003, requires period.},

    q{245: Subfield _c must be preceded by /},

    q{245: Subfield _c must be preceded by /},

    q{245: Subfield _c initials should not have a space.},

    q{245: Subfield _b should be preceded by space-colon, space-semicolon, or space-equals sign.},

    q{245: Subfield _b should be preceded by space-colon, space-semicolon, or space-equals sign.},

    q{245: Subfield _b should be preceded by space-colon, space-semicolon, or space-equals sign.},

    q{245: Subfield _b should be preceded by space-colon, space-semicolon, or space-equals sign.},

    q{245: Subfield _h should not be preceded by space.},

    q{245: Subfield _h must have matching square brackets, h.},

    q{245: Subfield _n must be preceded by . (period).},

    q{245: Subfield _p must be preceded by , (comma) when it follows subfield _n.},

    q{245: Subfield _p must be preceded by . (period) when it follows a subfield other than _n.},

    q{245: First word, the, may be an article, check 2nd indicator (0).},

    q{245: First word, an, may be an article, check 2nd indicator (2).},

    q{245: First word, l, may be an article, check 2nd indicator (0).},

    q{245: First word, a, does not appear to be an article, check 2nd indicator (2).},

);



foreach my $field (@fields) {

    my $field_object = MARC::Field->new( @$field );

    isa_ok( $field_object, 'MARC::Field', 'MARC field' );



    $lint->check_245( $field_object );

    my @warnings = $lint->warnings;

    $lint->clear_warnings();

    while ( @warnings ) {

        my $expected = shift @expected;

        my $actual = shift @warnings;



        is( $actual, $expected, join "\n", ( "Checking expected messages, $expected", $field_object->as_string() ));

    }

} #foreach field



is( scalar @expected, 0, "All expected messages exhausted." );