1 use Test::More; 2 3 BEGIN { plan tests => 26 }; 4 5 BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } 6 use JSON; 7 8 is(to_json([JSON::true]), q|[true]|); 9 is(to_json([JSON::false]), q|[false]|); 10 is(to_json([JSON::null]), q|[null]|); 11 12 my $jsontext = q|[true,false,null]|; 13 my $obj = from_json($jsontext); 14 15 isa_ok($obj->[0], 'JSON::Boolean'); 16 isa_ok($obj->[1], 'JSON::Boolean'); 17 ok(!defined $obj->[2], 'null is undef'); 18 19 ok($obj->[0] == 1); 20 ok($obj->[0] != 0); 21 ok($obj->[1] == 0); 22 ok($obj->[1] != 1); 23 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 29 ok($obj->[0] eq $obj->[0]); 30 ok($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'); 38 ok(!defined JSON::null); 39 40 is(from_json('[true]' )->[0], JSON::true); 41 is(from_json('[false]')->[0], JSON::false); 42 is(from_json('[null]' )->[0], JSON::null); 43 44
