1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use Mojo::Base -strict;
use JSON::Validator;
use Mojo::JSON qw(false true);
use Test::More;
my $jv = JSON::Validator->new(coerce => 'defaults');
is_deeply($jv->coerce, {defaults => 1}, 'coerce defaults');
$jv->coerce('def');
is_deeply($jv->coerce, {defaults => 1}, 'coerce def');
$jv->schema({
type => 'object',
definitions => {subscribed_to => {type => 'array', default => []}},
properties =>
{tos => {type => 'boolean', default => false}, subscribed_to => {'$ref' => '#/definitions/subscribed_to'}},
});
my $data = {};
my @errors = $jv->validate($data);
is_deeply \@errors, [], 'defaults pass validation';
is_deeply $data, {tos => false, subscribed_to => []}, 'data was mutated';
$data->{tos} = true;
@errors = $jv->validate($data);
is_deeply $data, {tos => true, subscribed_to => []}, 'only subscribed_to was mutated';
$jv->schema({type => 'object', properties => {age => {type => 'number', default => 'invalid'}}});
@errors = $jv->validate({});
is $errors[0]->message, 'Expected number - got string.', 'default values must be valid';
done_testing;
|
