#!perl -T

use strict;
use warnings;

use Test::More ( tests => 7 );
use File::Spec;

BEGIN {
    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();
isa_ok( $r, 'MARC::Record' );

my $f245 = $r->field( '245' );
is( 
    $f245->as_string( 'a' ), 
    'ActivePerl with ASP and ADO /',
    'as_string() with one subfield'
);
is( 
    $f245->as_string( 'ac' ), 
    'ActivePerl with ASP and ADO / Tobias Martinsson.',
    'as_string() with two subfields'
);
is( 
    $f245->as_string( 'ac', "\t" ), 
    'ActivePerl with ASP and ADO /' . "\t" . 'Tobias Martinsson.',
    'as_string() with two subfields and delimiter'
);

my $field = MARC::Field->new('650', ' ', ' ', a => 'History', '0' => '(DLC)12345');
is(
    $field->as_string('0'),
    '(DLC)12345',
    q{as_string('0') includes only subfield $0, not entire field}
);