|
use Dancer qw(:syntax :tests) ; subtest 'two schemas' => sub {
set plugins => {
'JSON::Schema' => {
foo => {
schema => 't/foo.json' ,
},
bar => {
schema => 't/bar.json' ,
},
}
};
throws_ok { json_schema( 'f' ) }
qr/schema f is not configured/ ,
'Missing schema error thrown' ;
throws_ok { json_schema }
qr/The schema default is not configured/ ,
'Missing default schema error thrown' ;
};
subtest 'two schemas with a default schema' => sub {
set plugins => {
'JSON::Schema' => {
default => {
schema => 't/foo.json' ,
},
bar => {
schema => 't/bar.json' ,
},
}
};
my $json_schema = json_schema;
isa_ok( $json_schema , 'JSON::Schema' );
is( $json_schema ->schema->{title} , 'foo' , 'pointing to correct schema' );
};
done_testing;
|