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
|
# vim: set ft=perl ts=8 sts=2 sw=2 tw=100 et :
use strict;
use warnings;
no if "$]" >= 5.031009, feature => 'indirect';
# this line is only needed of Test::JSON::Schema::Acceptance is not installed (we will need to find
# the test suite data in the local share/)
use Test::File::ShareDir -share => { -dist => { 'Test-JSON-Schema-Acceptance' => 'share' } };
use Test2::Tools::Basic;
use Test::JSON::Schema::Acceptance;
use lib 't/lib';
use SchemaParser;
my $accepter = Test::JSON::Schema::Acceptance->new(
specification => 'draft2020-12',
verbose => 1,
include_optional => 1,
);
my $parser = SchemaParser->new;
$accepter->acceptance(
validate_data => sub {
my ($schema, $input_data) = @_;
return $parser->validate_data($input_data, $schema);
},
);
Test2::Tools::Basic::done_testing;
|
