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