view release on metacpan or  search on metacpan

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

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'});