#!perl -Tw
use strict;
use integer;
use Test::More tests => 9;
BEGIN {
use_ok( 'MARC::Record' );
}
my $r = MARC::Record->new();
$r->insert_fields_ordered(
MARC::Field->new( '100', '', '', a => 'foo' )
);
my @fields = $r->fields();
isa_ok( $fields[0], 'MARC::Field' );
is( $fields[0]->tag(), '100', 'insert_fields_ordered works with empty rec' );
$r->insert_fields_ordered(
MARC::Field->new( '110', '', '', a => 'bar' ),
MARC::Field->new( '105', '', '', b => 'bez' ),
MARC::Field->new( '008', '', '', c => 'fez' )
);
@fields = $r->fields();
my @tags = ();
foreach (@fields ) {
isa_ok( $_, 'MARC::Field' );
push( @tags, $_->tag() );
}
is( scalar(@fields), 4, 'insert_fields_ordered added multiple fields' );
is_deeply( \@tags, [ '008', '100', '105', '110' ],
'insert_fields_ordered() added fields in numeric order' );