| OLD | NEW | 
|---|
|  | (Empty) | 
| 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 |  | 
| OLD | NEW | 
|---|