view release on metacpan or  search on metacpan

t/04-exporter.t  view on Meta::CPAN

use Test::XML;

use Catmandu::Exporter::PICA;
use File::Temp qw(tempfile);
use IO::File;
use Encode qw(encode);
use PICA::Data qw(pica_parser);
use PICA::Parser::PPXML;

sub slurp {
    do { local (@ARGV,$/) = shift; <> };
}

my @pica_records = (
    [
      ['003@', '', '0', '1041318383'],
      ['021A', '', 'a', encode('UTF-8',"Hello \$\N{U+00A5}!")],
    ],
    {
      record => [
        ['028C', '01', d => 'Emma', a => 'Goldman']

t/04-exporter.t  view on Meta::CPAN

$exporter = Catmandu::Exporter::PICA->new(
    fh => $fh,
    type => 'ppxml',
);
while($record = $parser->next){
    $exporter->add($record);
}
$exporter->commit();
close $fh;

my $in = do { local (@ARGV,$/)='t/files/slim_ppxml.xml'; <> };

is_xml(slurp($filename), $in, 'PPXML writer');

done_testing;

t/lib/MockHTTPClient.pm  view on Meta::CPAN

package MockHTTPClient;

#ABSTRACT: HTTP::Tiny mockup class to return XML data from file based on a query
use Moo;

sub get {
    my ($self, $url) = @_;
    $url =~ /query=([^&]+)/;
    my $xml = do {local (@ARGV, $/) = "t/files/$1"; <>};
    {success => 1, status => 200, reason => 'OK', content => $xml,};
}

1;