#!perl



#This tests check_020() called separately

#See lint.t for testing through check_record()



use strict;

use warnings;

use Test::More tests=>28;



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

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



my $lint = new MARC::Lint;

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



my @fields = ( 

        ['020', "","",

            a => "154879473", #too few digits

        ],

        ['020', "","",

            a => "1548794743", #invalid checksum

        ],

        ['020', "","",

            a => "15487947443", #11 digits

        ],

        ['020', "","",

            a => "15487947443324", #14 digits

        ],

        ['020', "","",

            a => "9781548794743", #13 digit valid

        ],

        ['020', "","",

            a => "9781548794745", #13 digit invalid

        ],

        ['020', "","",

            a => "1548794740 (10 : good checksum)", #10 digit valid with qualifier

        ],

        ['020', "","",

            a => "1548794745 (10 : bad checksum)", #10 digit invalid with qualifier

        ],

        ['020', "","",

            a => "1-54879-474-0 (hyphens and good checksum)", #10 digit invalid with hyphens and qualifier

        ],

        ['020', "","",

            a => "1-54879-474-5 (hyphens and bad checksum)", #10 digit invalid with hyphens and qualifier

        ],

        ['020', "","",

            a => "1548794740(10 : unspaced qualifier)", #10 valid without space before qualifier

        ],

        ['020', "","",

            a => "1548794745(10 : unspaced qualifier : bad checksum)", #10 invalid without space before qualifier

        ],



        ['020', "","",

            z => "1548794743", #subfield z

        ],



);



my @expected = (

    q{020: Subfield a has the wrong number of digits, 154879473.},

    q{020: Subfield a has bad checksum, 1548794743.},

    q{020: Subfield a has the wrong number of digits, 15487947443.},

    q{020: Subfield a has the wrong number of digits, 15487947443324.},

    q{020: Subfield a has bad checksum (13 digit), 9781548794745.},

    q{020: Subfield a has bad checksum, 1548794745 (10 : bad checksum).},

    q{020: Subfield a may have invalid characters.},

    q{020: Subfield a may have invalid characters.},

    q{020: Subfield a has bad checksum, 1-54879-474-5 (hyphens and bad checksum).},

    q{020: Subfield a qualifier must be preceded by space, 1548794740(10 : unspaced qualifier).},

    q{020: Subfield a qualifier must be preceded by space, 1548794745(10 : unspaced qualifier : bad checksum).},

    q{020: Subfield a has bad checksum, 1548794745(10 : unspaced qualifier : bad checksum).},



);



foreach my $field (@fields) {

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

    isa_ok( $field_object, 'MARC::Field', (join "", "MARC field, ", $field_object->subfield('a'))  ) if $field_object->subfield('a');



    my $check_tag = "check_".$field_object->tag();

    $lint->$check_tag( $field_object );

    my @warnings = $lint->warnings;

    $lint->clear_warnings();

    while ( @warnings ) {

        my $expected = shift @expected;

        my $actual = shift @warnings;



        is( $actual, $expected, "Checking expected messages, $expected" );

    }

} #foreach field



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