47 lines
1.5 KiB
Perl
47 lines
1.5 KiB
Perl
use strict;
|
|
use warnings;
|
|
|
|
use Mojolicious::Lite;
|
|
use Test::More;
|
|
|
|
plugin 'Pear::LocalLoop::Plugin::Datetime';
|
|
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';
|
|
my $valid_purchase_time = '2017-08-14T11:29:07.965+01:00';
|
|
my $invalid_purchase_time = '2017081411:29:07';
|
|
|
|
$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,
|
|
valid_purchase_time => $valid_purchase_time,
|
|
invalid_purchase_time => $invalid_purchase_time,
|
|
});
|
|
|
|
$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;
|
|
$validation->required('valid_purchase_time')->is_full_iso_datetime;
|
|
$validation->required('invalid_purchase_time')->is_full_iso_datetime;
|
|
|
|
ok $validation->has_error, 'Have Errors';
|
|
is_deeply $validation->failed, [ qw/ invalid_email invalid_postcode invalid_purchase_time not_a_postcode not_a_whole_postcode / ], 'Correct Errors';
|
|
|
|
done_testing;
|