From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use lib '.';
$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;