56 lines
1.4 KiB
Perl
56 lines
1.4 KiB
Perl
|
use utf8;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Test::More;
|
||
|
|
|
||
|
|
package T;
|
||
|
|
|
||
|
|
use Validation::Class;
|
||
|
|
|
||
|
|
package main;
|
||
|
|
|
||
|
|
my $data = {
|
||
|
|
"id" => "1234-ABC",
|
||
|
|
"name" => "Anita Campbell-Green",
|
||
|
|
"title" => "Designer",
|
||
|
|
"company" => {
|
||
|
|
"name" => "House of de Vil",
|
||
|
|
"supervisor" => {
|
||
|
|
"name" => "Cruella de Vil",
|
||
|
|
"rating" => [
|
||
|
|
{ "support" => -9,
|
||
|
|
"guidance" => -9
|
||
|
|
}
|
||
|
|
]
|
||
|
|
},
|
||
|
|
"tags" => [
|
||
|
|
"evil",
|
||
|
|
"cruelty",
|
||
|
|
"dogs"
|
||
|
|
]
|
||
|
|
},
|
||
|
|
};
|
||
|
|
|
||
|
|
my $schema = {
|
||
|
|
'id' => { mixin => [':num'], max_length => 4 },
|
||
|
|
'name' => { mixin => [':str'], min_length => 2 },
|
||
|
|
'title' => { mixin => [':str'], min_length => 5 },
|
||
|
|
'company.name' => { mixin => [':str'], min_length => 2 },
|
||
|
|
'company.tags.@' => { mixin => [':str'], min_length => 2 },
|
||
|
|
'company.super*.name' => { mixin => [':str'], min_length => 2 },
|
||
|
|
'company.super*.rating.@.*' => { mixin => [':str'], },
|
||
|
|
};
|
||
|
|
|
||
|
|
my $class;
|
||
|
|
|
||
|
|
eval { $class = T->new };
|
||
|
|
|
||
|
|
ok "T" eq ref $class, "T instantiated";
|
||
|
|
|
||
|
|
can_ok $class, 'validate_document';
|
||
|
|
|
||
|
|
ok $class->validate_document($schema => $data), "T (ad-hoc data) validated";
|
||
|
|
ok $data->{id} !~ /\D/, "document ID has been filtered";
|
||
|
|
|
||
|
|
done_testing;
|