use strict;
use warnings FATAL => 'all';
use Test::Tester 0.108;
use Test::More;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
check_tests(
sub {
local $Test::Builder::Level = $Test::Builder::Level + 1;
do 'examples/demo.t'
},
[
{
actual_ok => 1,
ok => 1,
diag => '',
name => 'hi validates as a TypeHi',
type => '',
},
{
actual_ok => 0,
ok => 0,
name => 'hello validates as a TypeHi',
type => '',
diag => <<EOM,
Validating \$data->{"greeting"} as a TypeHi type
got : 'hello' is not a 'hi'
expect : no error
EOM
},
],
'examples perform as advertised',
);
done_testing;