view release on metacpan or  search on metacpan

t/Catmandu-Fix-search_sru.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Exception;
use Test::HTTP::LocalServer;

my $pkg;

BEGIN {
    $pkg = 'Catmandu::Fix::search_sru';
    use_ok $pkg;
    $ENV{'http_proxy'} = '';
    $ENV{'HTTP_PROXY'} = '';
    $ENV{'HTTPS_PROXY'} = '';
}

require_ok $pkg;

{
    my $server
        = Test::HTTP::LocalServer->spawn(file => 't/files/sru_oai_dc.xml');
    my $url    = $server->url;
    my $search = $pkg->new('key', $url)->fix({key => 'value'});
    ok defined $search->{key}, 'default parser';
    is scalar @{$search->{key}}, 2, 'got records';
    $search
        = $pkg->new('nested.key', $url)->fix({nested => {key => 'value'}});
    is scalar @{$search->{nested}->{key}}, 2, 'nested path';
    $search = $pkg->new('key.*', $url)->fix({key => ['foo', 'bar']});
    ok defined $search->{key}->[0]->[0], 'array path';
    $server->stop;

}

{
    my $server = Test::HTTP::LocalServer->spawn(file => 't/files/21.xml');
    my $url    = $server->url;
    my $search
        = $pkg->new('key', $url, parser => 'marcxml')->fix({key => 'value'});
    ok defined $search->{key}, 'marcxml parser';
    $search = $pkg->new(
        'key', $url,
        parser => 'marcxml',
        fixes  => 'remove_field(record);'
    )->fix({key => 'value'});
    is_deeply $search->{key},
        [{_id => '011197684'}, {_id => '016305078'}, {_id => '01216822X'}],
        'got fixed records';
    $server->stop;

}

done_testing;