1use Test::More; 2 3BEGIN { plan tests => 26 }; 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 15isa_ok($obj->[0], 'JSON::Boolean'); 16isa_ok($obj->[1], 'JSON::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 24ok($obj->[0] eq 'true', 'eq true'); 25ok($obj->[0] ne 'false', 'ne false'); 26ok($obj->[1] eq 'false', 'eq false'); 27ok($obj->[1] ne 'true', 'ne true'); 28 29ok($obj->[0] eq $obj->[0]); 30ok($obj->[0] ne $obj->[1]); 31 32ok(JSON::true eq 'true'); 33ok(JSON::true ne 'false'); 34ok(JSON::true ne 'null'); 35ok(JSON::false eq 'false'); 36ok(JSON::false ne 'true'); 37ok(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