use Test::More qw/no_plan/; use Data::FormValidator; use strict; { local $@ = undef; eval { my $results = Data::FormValidator->check({}, { msgs => { my_field => 'foo', }, } ); }; like($@, qr/Invalid/, 'checking syntax of unknown msgs fields works'); } my $results; eval { $results = Data::FormValidator->check({}, { constraints => { key => { oops => 1, }, }, } ); }; like($@, qr/Invalid/, 'checking syntax of constraint hashrefs works'); eval { $results = Data::FormValidator->check({}, { constraint_regexp_map => { qr/key/ => { oops => 1, }, }, } ); }; like($@, qr/Invalid/, 'checking syntax of constraint_regexp_map hashrefs works');