use Test::More;
use strict;
# Test that closures and custom messages work in combination.
# Addresses this reported bug: #73235: msgs lookup doesn't work for built in closures
# https://rt.cpan.org/Ticket/Display.html?id=73235
use Data::FormValidator;
use Data::FormValidator::Constraints qw(
email
FV_eq_with
);
my $result = Data::FormValidator->check(
{ email => 'a', email_confirm => 'b'},
{
required => [qw( email email_confirm )],
constraint_methods => {
email => [ email(), FV_eq_with('email_confirm') ],
},
msgs => {
constraints => {
email => 'Invalid Email Address',
eq_with => 'Must match confirmation'
},
}
}
);
like($result->msgs->{email}, qr/Email Address/, "custom message for email() works");
like($result->msgs->{email}, qr/Must Match/i, "custom message for FV_eq_with() works");
done_testing();