use strict;
use warnings;
use Test::More;
use Catmandu::Fix;
use Catmandu::Fix::perlcode;
foreach my $i (1..2) { # also tests caching
my $fixer = Catmandu::Fix->new( fixes => ['perlcode(t/script.pl)'] );
my $data = { };
$fixer->fix($data);
is_deeply $data, { answer => 42 }, 'perlcode fix';
}
{
my $fixer = Catmandu::Fix->new( fixes => ['perlcode(t/script.pl)'] );
is_deeply $fixer->fix([
map { +{ answer => $_ } } 1..3
]), [ { answer => 1 }, { answer => 3 } ], 'perlcode fix with reject';
}
done_testing;