view release on metacpan or  search on metacpan

t/exporter.t  view on Meta::CPAN

use File::Temp qw(tempdir);
my $dir = tempdir();

$exporter = Catmandu::Exporter::XML->new( directory => $dir, field => '_xml' );
$exporter->add_many([
    { _id => 'foo', _xml => [ foo => {} ] },
    { _id => 'bar.xml', _xml => [ bar => {} ] },
]);
ok(-e "$dir/foo.xml" and -e "$dir/bar.xml", 'export to directory');
$xml = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<foo/>\n";
$out = do { local (@ARGV, $/) = "$dir/foo.xml"; <> };
is $out, $xml, 'exported to multiple files';

done_testing;