#!perl -Tw
use strict;
use Test::More;
use File::Spec;
plan( tests => 5 );
use_ok( 'MARC::Batch' );
my $filename = File::Spec->catfile( 't', 'camel.usmarc' );
my $b = MARC::Batch->new( 'USMARC', $filename );
isa_ok( $b, 'MARC::Batch' );
my $r = $b->next( \&wanted );
isa_ok( $r, 'MARC::Record' );
my @fields = $r->fields();
is( scalar( @fields ), 1, 'filter worked' );
eval { $r = $b->next( 'barf' ); };
like( $@, qr/filter function in next\(\)/, 'error message' );
sub wanted {
my ( $tag, $data ) = @_;
if ( $tag ne '245' ) { return ( 0 ); }
return( 1 );
}