use strict; use warnings; use Mojolicious::Lite; use Test::More; plugin 'Pear::LocalLoop::Plugin::Validators'; my $validator = app->validator; my $validation = $validator->validation; my $valid_email = 'test@example.com'; my $invalid_email = 'test.example.com'; my $valid_postcode = 'WC1H 9EB'; my $invalid_postcode = 'AB1 2CD'; my $not_a_postcode = 'a'; my $not_a_whole_postcode = 'LA1'; $validation->input({ valid_email => $valid_email, invalid_email => $invalid_email, valid_postcode => $valid_postcode, invalid_postcode => $invalid_postcode, not_a_postcode => $not_a_postcode, not_a_whole_postcode => $not_a_whole_postcode, }); $validation->required('valid_email')->email; $validation->required('invalid_email')->email; $validation->required('valid_postcode')->postcode; $validation->required('invalid_postcode')->postcode; $validation->required('not_a_postcode')->postcode; $validation->required('not_a_whole_postcode')->postcode; ok $validation->has_error, 'Have Errors'; is_deeply $validation->failed, [ qw/ invalid_email invalid_postcode not_a_postcode not_a_whole_postcode / ], 'Correct Errors'; done_testing;