NAME

Errorchecks.t -- Tests to ensure MARC::Errorchecks subroutines work as expected. Currently, performs semi-random testing of some of the subroutines in MARC::Errorchecks.

TO DO

Devise checks for each subroutine individually.

UNIMPLEMENTED

#may add this section later

FROM_FILE: { my @expected = ( (undef) x $countofundefs, [ q{$tag: $error} ] );

        my $filename = "t/errorchecks.usmarc";

        my $file = MARC::File::USMARC->in( $filename );
        while ( my $marc = $file->next() ) {
                isa_ok( $marc, 'MARC::Record' );
                my $title = $marc->title;

        my $expected = shift @expected;
        my @warnings = ();
        push @warnings, (@{MARC::Errorchecks::check_all_subs($record)});

        if ( $expected ) {
                ok( eq_array( \@warnings, $expected ), "Warnings match on $title" );
                } 
        else {
                is( scalar @warnings, 0, "No warnings on $title" );
                }
        } # while

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

CURRENT SUBS

        push @errorstoreturn, (@{check_internal_spaces($marc)});

        push @errorstoreturn, (@{check_trailing_spaces($marc)});

        push @errorstoreturn, (@{check_double_periods($marc)});

        push @errorstoreturn, (@{check_008($marc)});

        push @errorstoreturn, (@{check_010($marc)});

        push @errorstoreturn, (@{check_end_punct_300($marc)});

        push @errorstoreturn, (@{check_bk008_vs_300($marc)});

        push @errorstoreturn, (@{check_490vs8xx($marc)});

        push @errorstoreturn, (@{check_240ind1vs1xx($marc)});

        push @errorstoreturn, (@{check_245ind1vs1xx($marc)});

        push @errorstoreturn, (@{matchpubdates($marc)});

        push @errorstoreturn, (@{check_bk008_vs_bibrefandindex($marc)});

        push @errorstoreturn, (@{check_041vs008lang($marc)});

        push @errorstoreturn, (@{check_5xxendingpunctuation($marc)});

        push @errorstoreturn, (@{findfloatinghyphens($marc)});

        push @errorstoreturn, (@{check_floating_punctuation($record)});

        push @errorstoreturn, (@{video007vs300vs538($marc)});

        push @errorstoreturn, (@{ldrvalidate($marc)});

        push @errorstoreturn, (@{geogsubjvs043($marc)});

        push @errorstoreturn, (@{findemptysubfields($marc)});

        push @errorstoreturn, (@{check_040present($marc)});

        push @errorstoreturn, (@{check_nonpunctendingfields($marc)});

        push @errorstoreturn, (@{check_fieldlength($marc)});