#!perl -Tw

use Test::More tests => 4; 

use strict;

## make sure that MARC::Field::subfield() is aware of the context 
## in which it is called. In list context it returns *all* subfields
## and in scalar just the first.

use_ok( 'MARC::Field' );
my $field = MARC::Field->new( '245', '', '', a=>'foo', b=>'bar', a=>'baz' );
isa_ok( $field, 'MARC::Field' );

my @subfields = $field->subfields();
is_deeply(\@subfields, [ ['a' => 'foo'], ['b' => 'bar'], ['a' => 'baz'] ], 'subfields() returns same subfields');

$field = MARC::Field->new( '000', 'foobar' );
@subfields = $field->subfields();
ok(!@subfields, 'subfields() on a controlfield returns empty array');