#!/usr/bin/perl

use strict;
use warnings;
use warnings qw(FATAL utf8);
use utf8;

use Test::More;

use Catmandu::Importer::MARC;
use Catmandu::Fix;

my $fixer = Catmandu::Fix->new(fixes => ['t/test.fix']);
my $importer = Catmandu::Importer::MARC->new( file => 't/camel.mrc', type => "ISO" );
my $records = $fixer->fix($importer)->to_array;

is $records->[0]->{my}{id}, 'fol05731351 ', q|fix: marc_map('001','my.id');|;

is $records->[0]->{my}{title}, 'ActivePerl with ASP and ADO /', q|fix: marc_map('245a','my.title');|;

is_deeply
    $records->[0]->{my}{split_title},
    ['ActivePerl with ASP and ADO /', 'Tobias Martinsson.'],
    q|fix: marc_map('245','my.split.title','-split', 1);|;

# field 666 does not exist in camel.mrc
# the '$append' fix creates $my->{'references'} hash key with empty array ref as value
ok !$records->[0]->{'my'}{'references'}, q|fix: marc_map('666', 'my.references.$append');|;

is $records->[0]->{my}{substr_id}, "057" , 'substring';

is $records->[0]->{my}{substr_id2}->[0], "057", 'substring + split';

ok !exists $records->[0]->{my}{failed_substr_id} , 'failed substring';

ok $records->[0]->{record} =~ /marc:datafield/ , "marcxml";

is $records->[0]->{my}->{found005} , 1 , 'if marc_match';

is $records->[0]->{my}->{found008} , 1 , 'if marc_match';

is $records->[0]->{my}->{pluck} , "M33 2000QA76.73.P22" , 'pluck feature';

is $records->[0]->{my}->{has_title}, 'Y' , 'value feature';

is $records->[0]->{has_260c}, 'OK' , 'value subfield';

ok ! $records->[0]->{has_260h}, 'value subfield';

is $records->[0]->{has_500_not_c}, 'OK' , '^c value subfield';

ok ! $records->[0]->{has_500_not_a}, '^a value subfield';

# gh#46: Test for subfield codes 0
{
    my $mrc
    = '00093nam a2200037 c 45001000055000001 aPoe, Curtis0(DE-601)7303424090(DE-588)1028093195';

my $fixer = Catmandu::Fix->new(
    fixes => [
        'marc_map(100,subf_all,join => "~")',
        'marc_map(1000,subf_zero,join => "~")',
        'marc_map(1000a,subf_zero_pluck,join => "~",pluck => 1)',
    ]
);
my $importer = Catmandu::Importer::MARC->new( file => \$mrc, type => 'ISO' );
my $record = $fixer->fix($importer)->first;

is( $record->{subf_all},
    'Poe, Curtis~(DE-601)730342409~(DE-588)1028093195',
    'all subfields'
);
is( $record->{subf_zero}, '(DE-601)730342409~(DE-588)1028093195',
    'subfields 0' );
is( $record->{subf_zero_pluck}, '(DE-601)730342409~(DE-588)1028093195~Poe, Curtis',
    'subfields 0 pluck' );
}

done_testing;