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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
use Mojo::Base -strict;
use JSON::Validator;
use JSON::Validator::Schema::Draft7;
use Mojo::File 'path';
use Test::More;
my $workdir = path(__FILE__)->to_abs->dirname;
my $jv = JSON::Validator->new;
subtest 'replace' => sub {
my $schema
= JSON::Validator::Schema::Draft7->new({
definitions => {name => {type => 'string'}}, surname => {'$ref' => '#/definitions/name'},
});
is $schema->bundle({replace => 1})->data->{surname}{type}, 'string', "schema->bundle";
};
subtest 'Run multiple times to make sure _reset() works' => sub {
for my $n (1 .. 3) {
note "[$n] replace=1";
my $bundled = $jv->bundle({
replace => 1,
schema => {definitions => {name => {type => 'string'}}, surname => {'$ref' => '#/definitions/name'}},
});
is $bundled->{surname}{type}, 'string', "[$n] replace=1";
note "[$n] replace=0";
$bundled = $jv->schema({
surname => {'$ref' => '#/definitions/name'},
age => {'$ref' => 'b.json#/definitions/years'},
definitions => {name => {type => 'string'}},
B => {id => 'b.json', definitions => {years => {type => 'integer'}}},
})->bundle;
ok $bundled->{definitions}{name}, "[$n] definitions/name still in definitions";
is $bundled->{definitions}{name}{type}, 'string', "[$n] definitions/name/type still in definitions";
is $bundled->{definitions}{years}{type}, 'integer', "[$n] added to definitions";
isnt $bundled->{age}, $jv->schema->get('/age'), "[$n] new age ref";
is $bundled->{surname}, $jv->schema->get('/surname'), "[$n] same surname ref";
is $bundled->{age}{'$ref'}, '#/definitions/years', "[$n] age \$ref point to /definitions/years";
is $bundled->{surname}{'$ref'}, '#/definitions/name', "[$n] surname \$ref point to /definitions/name";
}
};
subtest 'check bundled structure' => sub {
is $jv->get([qw(surname type)]), 'string', 'get /surname/$ref';
is $jv->get('/surname/type'), 'string', 'get /surname/type';
is $jv->get('/surname/$ref'), undef, 'get /surname/$ref';
is $jv->schema->get('/surname/type'), 'string', 'schema get /surname/type';
is $jv->schema->get('/surname/$ref'), '#/definitions/name', 'schema get /surname/$ref';
my $bundled = $jv->schema('data://main/bundled.json')->bundle;
is_deeply [sort keys %{$bundled->{definitions}}], ['objtype'], 'no dup definitions';
};
subtest 'definitions in disk spec' => sub {
for my $path (
['test-definitions-key.json'],
['with-deep-mixed-ref.json'],
['with-deep-mixed-ref.json'],
[File::Spec->updir, 'spec', 'with-deep-mixed-ref.json'],
)
{
my $file = path $workdir, 'spec', @$path;
my @expected = qw(age_json-SHA height unit_json-SHA weight_json-SHA);
$expected[0] = 'age_json-type-SHA' if $path->[0] eq 'test-definitions-key.json';
my $bundled = $jv->schema($file)->bundle;
is_deeply [sort map { s!-[a-z0-9]{10}$!-SHA!; $_ } keys %{$bundled->{definitions}}], \@expected,
"right definitions in disk spec @$path"
or diag join ', ', sort keys %{$bundled->{definitions}};
}
};
subtest 'ensure filenames with funny characters not mangled by Mojo::URL' => sub {
my $file3 = path $workdir, 'spec', 'space bundle.json';
my $bundled = eval { $jv->schema($file3)->bundle };
is $@, '', 'loaded absolute filename with space';
is $bundled->{properties}{age}{description}, 'Age in years', 'right definitions in disk spec'
or diag explain $bundled;
};
subtest 'extract subset of schema' => sub {
my $bundled = $jv->schema('data://main/bundled.json')->bundle({schema => $jv->get([qw(paths /withdots get)])});
is_deeply(
$bundled,
{
definitions => {objtype => {properties => {propname => {type => 'string'}}, type => 'object'}},
responses => {200 => {schema => {'$ref' => '#/definitions/objtype'}}}
},
'subset of schema was bundled'
) or diag explain $bundled;
};
subtest 'no leaking path' => sub {
my $bundled = $jv->schema('data://main/bundled.json')->bundle({schema => $jv->get([qw(paths /withdots get)])});
my $ref_name_prefix = $workdir;
$ref_name_prefix =~ s![^\w-]!_!g;
$jv->schema(path $workdir, 'spec', 'bundle-no-leaking-filename.json');
my @definitions = keys %{$bundled->{definitions}};
ok @definitions, 'definitions are present';
is_deeply [grep { 0 == index $_, $ref_name_prefix } @definitions], [], 'no leaking of path';
};
done_testing;
__DATA__
@@ bundled.json
{
"definitions": {
"objtype": {
"type": "object",
"properties": {"propname": {"type": "string"}}
}
},
"paths": {
"/withdots": {
"get": {
"responses": {
"200": {"schema": {"$ref": "#/definitions/objtype"}}
}
}
}
}
}
|
