1use Test::More;
2
3BEGIN { plan tests => 16 };
4
5BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
6use JSON;
7
8is(to_json([JSON::true]),  q|[true]|);
9is(to_json([JSON::false]), q|[false]|);
10is(to_json([JSON::null]),  q|[null]|);
11
12my $jsontext = q|[true,false,null]|;
13my $obj      = from_json($jsontext);
14#push @JSON::backportPP::Boolean::ISA, 'JSON::Boolean';
15isa_ok($obj->[0], 'JSON::PP::Boolean');
16isa_ok($obj->[1], 'JSON::PP::Boolean');
17ok(!defined $obj->[2], 'null is undef');
18
19ok($obj->[0] == 1);
20ok($obj->[0] != 0);
21ok($obj->[1] == 0);
22ok($obj->[1] != 1);
23# discard overload hack for JSON::XS 3.0 boolean class
24#ok($obj->[0] eq 'true', 'eq true');
25#ok($obj->[0] ne 'false', 'ne false');
26#ok($obj->[1] eq 'false', 'eq false');
27#ok($obj->[1] ne 'true', 'ne true');
28
29ok($obj->[0] eq $obj->[0]);
30ok($obj->[0] ne $obj->[1]);
31
32#ok(JSON::true  eq 'true');
33#ok(JSON::true  ne 'false');
34#ok(JSON::true  ne 'null');
35#ok(JSON::false eq 'false');
36#ok(JSON::false ne 'true');
37#ok(JSON::false ne 'null');
38ok(!defined JSON::null);
39
40is(from_json('[true]' )->[0], JSON::true);
41is(from_json('[false]')->[0], JSON::false);
42is(from_json('[null]' )->[0],  JSON::null);
43
44