File: draft4-acceptance.t

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

$ENV{MOJO_LOG_LEVEL} //= 'fatal';

plan skip_all => 'TEST_ACCEPTANCE=1' unless $ENV{TEST_ACCEPTANCE};
delete $ENV{TEST_ACCEPTANCE} if $ENV{TEST_ACCEPTANCE} eq '1';

my @todo_tests;
push @todo_tests, ['id.json',        'id inside an enum is not a real identifier'];
push @todo_tests, ['ref.json',       '$ref prevents a sibling id from changing the base uri'];
push @todo_tests, ['refRemote.json', 'Location-independent identifier in remote ref'];

t::Helper->acceptance('JSON::Validator::Schema::Draft4', todo_tests => \@todo_tests);

done_testing;