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
|
use lib '.';
use t::Helper;
my $schema = {
type => 'object',
properties => {mynumber => {type => 'integer', minimum => 1, maximum => 4}}
};
validate_ok {mynumber => 1}, $schema;
validate_ok {mynumber => 4}, $schema;
validate_ok {mynumber => 2}, $schema;
validate_ok {mynumber => 0}, $schema, E('/mynumber', '0 < minimum(1)');
validate_ok {mynumber => -1}, $schema, E('/mynumber', '-1 < minimum(1)');
validate_ok {mynumber => 5}, $schema, E('/mynumber', '5 > maximum(4)');
validate_ok {mynumber => '2'}, $schema,
E('/mynumber', 'Expected integer - got string.');
$schema->{properties}{mynumber}{multipleOf} = 2;
validate_ok {mynumber => 3}, $schema, E('/mynumber', 'Not multiple of 2.');
t::Helper->validator->coerce(numbers => 1);
validate_ok {mynumber => '2'}, $schema;
validate_ok {mynumber => '2xyz'}, $schema,
E('/mynumber', 'Expected integer - got string.');
$schema->{properties}{mynumber}{minimum} = -3;
validate_ok {mynumber => '-2'}, $schema;
done_testing;
|
