use Test::More (qw/no_plan/);
use Data::FormValidator;

my $profile = {
    required => [qw( test1 )],
    constraint_regexp_map => {
        qr/^test/ => 'email',
    },
};

my $data = {
    test1 => 'not an email',
};

my $results1 = Data::FormValidator->check($data, $profile);
my $c1 = {%{ $profile->{constraints} }};
my $results2 = Data::FormValidator->check($data, $profile);
my $c2 = {%{ $profile->{constraints} }};

is_deeply($results1->{profile},$results2->{profile}, "constraints aren't duped when profile with constraint_regexp_map is reused");
is_deeply($c1,$c2, "constraints aren't duped when profile with constraint_regexp_map is reused");

{
    my $profile = {
        required => [qw( test1 )],
        field_filter_regexp_map => {
            qr/^test/ => 'trim',
        },
    };

    my $data = {
        test1 => ' not an email ',
    };

    my $results1 = Data::FormValidator->check($data, $profile);
    my $c1 = {%{ $profile->{constraints} }};
    my $results2 = Data::FormValidator->check($data, $profile);
    my $c2 = {%{ $profile->{constraints} }};
    is_deeply($results1->{profile},$results2->{profile}, "field_filters aren't duped when profile with field_filter_regexp_map is reused");
    is_deeply($c1,$c2, "field_filters aren't duped when profile with field_filter_regexp_map is reused");

}