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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
# vim: set ft=perl ts=8 sts=2 sw=2 tw=100 et :
use strictures 2;
use 5.020;
use stable 0.031 'postderef';
use experimental 'signatures';
no autovivification warn => qw(fetch store exists delete);
use if "$]" >= 5.022, experimental => 're_strict';
no if "$]" >= 5.031009, feature => 'indirect';
no if "$]" >= 5.033001, feature => 'multidimensional';
no if "$]" >= 5.033006, feature => 'bareword_filehandles';
no if "$]" >= 5.041009, feature => 'smartmatch';
no feature 'switch';
use open ':std', ':encoding(UTF-8)'; # force stdin, stdout, stderr into utf8
use lib 't/lib';
use Helper;
my $js = JSON::Schema::Modern->new(max_traversal_depth => 6);
cmp_result(
$js->evaluate(
[ [ [ [ [ 1 ] ] ] ] ],
{
items => { '$ref' => '#' },
},
)->TO_JSON,
{
valid => false,
errors => [
{
instanceLocation => '/0/0/0/0',
keywordLocation => '/items/$ref/items/$ref/items/$ref/items',
absoluteKeywordLocation => '#/items',
error => 'EXCEPTION: maximum evaluation depth (6) exceeded',
},
],
},
'evaluation is halted when traversal gets too deep',
);
cmp_result(
$js->evaluate(
1,
{
'$defs' => {
loop_a => {
'$ref' => '#/$defs/loop_b',
},
loop_b => {
'$ref' => '#/$defs/loop_a',
},
},
'$ref' => '#/$defs/loop_a',
},
)->TO_JSON,
{
valid => false,
errors => [
{
instanceLocation => '',
keywordLocation => '/$ref/$ref/$ref',
absoluteKeywordLocation => '#/$defs/loop_a',
error => 'EXCEPTION: infinite loop detected (same location evaluated twice)',
},
],
},
'evaluation is halted when an instance location is evaluated against the same schema location a second time',
);
cmp_result(
$js->evaluate(
{ foo => 1 },
{
'$defs' => { mydef => { '$id' => '/properties/foo' } },
properties => {
foo => {
'$ref' => '/properties/foo',
},
},
},
)->TO_JSON,
{ valid => true },
'the seen counter does not confuse URI paths and fragments: /properties/foo vs #/properties/foo',
);
cmp_result(
$js->evaluate(
{ foo => 1 },
{
'$defs' => {
int => { type => 'integer' },
},
anyOf => [
{ additionalProperties => { '$ref' => '#/$defs/int' } },
{ additionalProperties => { '$ref' => '#/$defs/int' } },
],
}
)->TO_JSON,
{ valid => true },
'the seen counter does not confuse two subschemas that both apply the same definition to the same instance location',
);
done_testing;
|
