1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
use lib '.';
use t::Helper;
sub j { Mojo::JSON::decode_json(Mojo::JSON::encode_json($_[0])); }
my $schema = {type => 'object', properties => {nick => {type => 'boolean'}}};
validate_ok {nick => true}, $schema;
validate_ok {nick => 1000}, $schema,
E('/nick', 'Expected boolean - got number.');
validate_ok {nick => 0.5}, $schema,
E('/nick', 'Expected boolean - got number.');
validate_ok {nick => 'nick'}, $schema,
E('/nick', 'Expected boolean - got string.');
validate_ok {nick => bless({}, 'BoolTestOk')}, $schema;
validate_ok {nick => bless({}, 'BoolTestFail')}, $schema,
E('/nick', 'Expected boolean - got BoolTestFail.');
validate_ok j(Mojo::JSON->false), {type => 'boolean'};
validate_ok j(Mojo::JSON->true), {type => 'boolean'};
validate_ok j('foo'), {type => 'boolean'},
E('/', 'Expected boolean - got string.');
validate_ok undef, {properties => {}}, E('/', 'Expected object - got null.');
t::Helper->validator->coerce(1);
validate_ok {nick => 1000}, $schema;
validate_ok {nick => 0.5}, $schema;
done_testing;
package BoolTestOk;
use overload '""' => sub {1};
package BoolTestFail;
use overload '""' => sub {2};
|
