#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Fix::retain';
use_ok $pkg;
}
is_deeply $pkg->new('keep')
->fix({remove => 'me', also => 'me', keep => 'me'}), {keep => 'me'};
is_deeply $pkg->new('unknown')->fix({remove => 'me', also => 'me'}), {};
is_deeply $pkg->new('keep', 'maybe.keep')
->fix(
{remove => 'me', keep => 'me', maybe => {keep => 'me', remove => 'me'}}),
{keep => 'me', maybe => {keep => 'me'}};
done_testing 4;