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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
use lib '.';
use Mojo::Base -strict;
use Mojo::JSON 'encode_json';
use Test::More;
use t::Helper;
my $simple = {type => 'array', items => {type => 'number'}};
my $length = {type => 'array', minItems => 2, maxItems => 2};
my $unique = {type => 'array', uniqueItems => 1, items => {type => 'integer'}};
my $tuple = {
type => 'array',
items => [
{type => 'number'},
{type => 'string'},
{type => 'string', enum => ['Street', 'Avenue', 'Boulevard']},
{type => 'string', enum => ['NW', 'NE', 'SW', 'SE']}
]
};
validate_ok [1], $simple;
validate_ok [1, 'foo'], $simple, E('/1', 'Expected number - got string.');
validate_ok [1], $length, E('/', 'Not enough items: 1/2.');
validate_ok [1, 2], $length;
validate_ok [1, 2, 3], $length, E('/', 'Too many items: 3/2.');
validate_ok [123, 124], $unique;
validate_ok [1, 2, 1], $unique, E('/', 'Unique items required.');
validate_ok [1600, 'Pennsylvania', 'Avenue', 'NW'], $tuple;
validate_ok [24, 'Sussex', 'Drive'], $tuple;
validate_ok [10, 'Downing', 'Street'], $tuple;
validate_ok [1600, 'Pennsylvania', 'Avenue', 'NW', 'Washington'], $tuple;
$tuple->{additionalItems} = Mojo::JSON->false;
validate_ok [1600, 'Pennsylvania', 'Avenue', 'NW', 'Washington'], $tuple,
E('/', 'Invalid number of items: 5/4.');
validate_ok [1600, 'NW'],
{type => 'array', contains => {type => 'string', enum => ['NW']}};
validate_ok [1600, 'NW'],
{type => 'array', contains => {type => 'string', enum => ['Nope']}},
E('/0', 'Expected string - got number.'), E('/1', 'Not in enum list: Nope.');
# Make sure all similar numbers gets converted from strings
my $jv = JSON::Validator->new->coerce(1);
my @numbers;
$jv->schema({type => 'array', items => {type => 'number'}});
@numbers = qw(1.42 2.3 1.42 1.42);
ok !$jv->validate(\@numbers), 'numbers are valid';
is encode_json(\@numbers), encode_json([1.42, 2.3, 1.42, 1.42]),
'coerced into integers';
$jv->schema({type => 'array', items => {type => 'integer'}});
@numbers = qw(1 2 1 1 3 1);
ok !$jv->validate(\@numbers), 'integers are valid';
is encode_json(\@numbers), encode_json([1, 2, 1, 1, 3, 1]),
'coerced into numbers';
done_testing;
|
