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
|
# 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 Test::Warnings qw(warnings :no_end_test had_no_warnings);
use lib 't/lib';
use Helper;
my %strings = (
id => qr/^no-longer-supported "id" keyword present \(at location ""\): this should be rewritten as "\$id" at /,
definitions => qr/^no-longer-supported "definitions" keyword present \(at location ""\): this should be rewritten as "\$defs" at /,
dependencies => qr/^no-longer-supported "dependencies" keyword present \(at location ""\): this should be rewritten as "dependentSchemas" or "dependentRequired" at /,
);
my %schemas = (
id => 'https://localhost:1234',
definitions => {},
dependencies => {},
);
my @warnings = (
[ draft6 => [ qw(id) ] ],
[ draft7 => [ qw(id) ] ],
[ 'draft2019-09' => [ qw(id definitions dependencies) ] ],
);
foreach my $index (0 .. $#warnings) {
my ($spec_version, $removed_keywords) = $warnings[$index]->@*;
note "\n", $spec_version;
my $js = JSON::Schema::Modern->new(specification_version => $spec_version);
foreach my $keyword (@$removed_keywords) {
cmp_result(
[ warnings {
cmp_result(
$js->evaluate(true, { $keyword => $schemas{$keyword} })->TO_JSON,
{ valid => true },
'schema with "'.$keyword.'" still validates in '.$spec_version,
)
} ],
superbagof(re($strings{$keyword})),
'warned for "'.$keyword.'" in '.$spec_version,
);
}
next if $index == $#warnings;
my ($next_spec_version, $removed_next_keywords) = $warnings[$index+1]->@*;
foreach my $keyword (@$removed_next_keywords) {
next if grep $keyword eq $_, @$removed_keywords;
local $SIG{__WARN__} = sub {
warn @_ if $_[0] =~ /^no-longer-supported "$keyword" keyword present/;
};
cmp_result(
[ warnings {
cmp_result(
$js->evaluate(true, { $keyword => $schemas{$keyword} })->TO_JSON,
{ valid => true },
'schema with "'.$keyword.'" validates in '.$spec_version,
)
} ],
[],
'did not warn for "'.$keyword.'" in '.$spec_version,
);
}
}
had_no_warnings if $ENV{AUTHOR_TESTING};
done_testing;
|
