1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
use lib '.';
use t::Helper;
my $schema0 = {type => 'object', properties => {mynumber => {type => 'string', required => 1}}};
my $schema1 = {type => 'object', properties => {mynumber => {type => 'string'}}, required => ['mynumber']};
my $schema2 = {type => 'object', properties => {mynumber => {type => 'string'}}};
my $data1 = {mynumber => 'yay'};
my $data2 = {mynumbre => 'err'};
validate_ok $data1, $schema1;
validate_ok $data2, $schema0; # Cannot have required on properties
validate_ok $data2, $schema1, E('/mynumber', 'Missing property.');
validate_ok $data1, $schema2;
validate_ok $data2, $schema2;
done_testing;
|
