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
|
# vim: set ts=8 sts=2 sw=2 tw=100 et :
use strict;
use warnings;
use 5.020;
use stable 0.031 'postderef';
use experimental 'signatures';
no if "$]" >= 5.031009, feature => 'indirect';
no if "$]" >= 5.033001, feature => 'multidimensional';
no if "$]" >= 5.033006, feature => 'bareword_filehandles';
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Test::Deep;
use Test::JSON::Schema::Acceptance;
use Test::File::ShareDir -share => { -dist => { 'Test-JSON-Schema-Acceptance' => 'share' } };
use JSON::PP;
my %additional_resources;
my $accepter = Test::JSON::Schema::Acceptance->new(
test_dir => 't/tests/add_resource',
additional_resources => 't/tests/add_resource/remotes',
include_optional => 0,
supported_specifications => [ qw(draft2019-09 draft2020-12) ],
);
$accepter->acceptance(
validate_data => sub ($schema, $data) {
return 1; # all schemas evaluate to true here
},
add_resource => sub ($uri, $schema, %options) {
$additional_resources{$uri} = [ $schema, \%options ];
},
);
cmp_deeply(
\%additional_resources,
{
'http://localhost:1234/remote1.json' => [ { '$defs' => { foo => bool(1) } }, {} ],
'http://localhost:1234/subfolder/remote2.json' => [ { '$defs' => { bar => bool(0) } }, {} ],
'http://localhost:1234/draft2020-12/remote3.json' => [ { '$defs' => { baz => bool(0) } }, { specification_version => 'draft2020-12' } ],
'http://localhost:1234/draft2019-09/remote4.json' => [ { '$defs' => { quux => bool(0) } }, { specification_version => 'draft2019-09' } ],
# but not http://localhost:1234/draft6/remote5.json
},
'user-supplied subref is called with additional resources found in test directory',
);
done_testing;
|
