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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
use lib '.';
use t::Helper;
sub j { Mojo::JSON::decode_json(Mojo::JSON::encode_json($_[0])); }
my $schema = {type => 'object', properties => {v => {type => 'boolean'}}};
validate_ok {v => '0'}, $schema, E('/v', 'Expected boolean - got string.');
validate_ok {v => 'false'}, $schema, E('/v', 'Expected boolean - got string.');
validate_ok {v => 1}, $schema, E('/v', 'Expected boolean - got number.');
validate_ok {v => 0.5}, $schema, E('/v', 'Expected boolean - got number.');
validate_ok {v => Mojo::JSON->true}, $schema;
validate_ok {v => Mojo::JSON->false}, $schema;
validate_ok {v => true}, $schema;
validate_ok {v => 1000}, $schema, E('/v', 'Expected boolean - got number.');
validate_ok {v => 0.5}, $schema, E('/v', 'Expected boolean - got number.');
validate_ok {v => 'active'}, $schema, E('/v', 'Expected boolean - got string.');
validate_ok {v => bless({}, 'BoolTestOk')}, $schema;
validate_ok {v => bless({}, 'BoolTestFail')}, $schema, E('/v', '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.');
note 'boolean const';
my $bool_constant_false = {type => 'boolean', const => false};
my $bool_constant_true = {type => 'boolean', const => true};
validate_ok false, $bool_constant_false;
validate_ok true, $bool_constant_false, E('/', q{Does not match const: false.});
validate_ok true, $bool_constant_true;
validate_ok false, $bool_constant_true, E('/', q{Does not match const: true.});
note 'boolean objects';
my $data = jv->store->get(jv->store->load(\"---\nv: true\n"));
isa_ok($data->{v}, 'JSON::PP::Boolean');
validate_ok $data, $schema;
SKIP: {
skip 'boolean not installed', 1 unless eval 'require boolean;1';
validate_ok {type => 'boolean'}, {type => 'object', properties => {type => {type => 'string'}}};
}
note 'coerce check data';
jv->coerce('bool');
coerce_ok({v => !!1}, $schema);
coerce_ok({v => !!0}, $schema);
coerce_ok({v => 0}, $schema);
coerce_ok({v => ''}, $schema);
coerce_ok({v => 'false'}, $schema);
coerce_ok({v => 'true'}, $schema);
coerce_ok({v => 1}, $schema);
coerce_ok({v => '1'}, $schema);
note 'coerce fail';
jv->coerce('booleans');
validate_ok {v => 0.5}, $schema, E('/v', 'Expected boolean - got number.');
validate_ok {v => -1}, $schema, E('/v', 'Expected boolean - got number.');
validate_ok {v => 'yessir'}, $schema, E('/v', 'Expected boolean - got string.');
validate_ok {v => 'nope'}, $schema, E('/v', 'Expected boolean - got string.');
note 'coerce const';
validate_ok 0, $bool_constant_false;
validate_ok 1, $bool_constant_false, E('/', q{Does not match const: false.});
validate_ok 1, $bool_constant_true;
validate_ok 0, $bool_constant_true, E('/', q{Does not match const: true.});
done_testing;
sub coerce_ok {
my ($data, $schema) = @_;
my $exp = {v => !$data->{v} || $data->{v} eq 'false' ? false : true};
validate_ok $data, $schema;
is_deeply $data, $exp, 'data was coerced correctly';
}
package BoolTestOk;
use overload '""' => sub {1};
package BoolTestFail;
use overload '""' => sub {2};
|
