File: issue-158-draf7-coerce-defaults.t

package info (click to toggle)
libjson-validator-perl 4.14%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 828 kB
  • sloc: perl: 2,816; makefile: 14
file content (15 lines) | stat: -rw-r--r-- 337 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use lib '.';
use t::Helper;

my $validator = JSON::Validator->new(coerce => 'defaults');

eval {
  $validator->load_and_validate_schema(
    {'$schema' => 'http://json-schema.org/draft-07/schema#'},
    {schema    => 'http://json-schema.org/draft-07/schema#'},
  );
};

ok !$@, "load_and_validate_schema draft-07 \$@=$@";

done_testing;