# 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 Test::JSON::Schema::Acceptance;
use lib 't/lib';
use SchemaParser;

my $accepter = Test::JSON::Schema::Acceptance->new(
  specification => 'draft2019-09',
  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;
