| OLD | NEW | 
|---|
|  | (Empty) | 
| 1 use Test::More; |  | 
| 2 |  | 
| 3 BEGIN { plan tests => 26 }; |  | 
| 4 |  | 
| 5 BEGIN { $ENV{PERL_JSON_BACKEND} = 1; } |  | 
| 6 use JSON; |  | 
| 7 |  | 
| 8 SKIP: { |  | 
| 9     skip "can't use JSON::XS.", 26, unless( JSON->backend->is_xs ); |  | 
| 10 |  | 
| 11 is(to_json([JSON::true]),  q|[true]|); |  | 
| 12 is(to_json([JSON::false]), q|[false]|); |  | 
| 13 is(to_json([JSON::null]),  q|[null]|); |  | 
| 14 |  | 
| 15 my $jsontext = q|[true,false,null]|; |  | 
| 16 my $obj      = from_json($jsontext); |  | 
| 17 |  | 
| 18 isa_ok($obj->[0], 'JSON::Boolean'); |  | 
| 19 isa_ok($obj->[1], 'JSON::Boolean'); |  | 
| 20 ok(!defined $obj->[2], 'null is undef'); |  | 
| 21 |  | 
| 22 ok($obj->[0] == 1); |  | 
| 23 ok($obj->[0] != 0); |  | 
| 24 ok($obj->[1] == 0); |  | 
| 25 ok($obj->[1] != 1); |  | 
| 26 |  | 
| 27 ok($obj->[0] eq 'true', 'eq true'); |  | 
| 28 ok($obj->[0] ne 'false', 'ne false'); |  | 
| 29 ok($obj->[1] eq 'false', 'eq false'); |  | 
| 30 ok($obj->[1] ne 'true', 'ne true'); |  | 
| 31 |  | 
| 32 ok($obj->[0] eq $obj->[0]); |  | 
| 33 ok($obj->[0] ne $obj->[1]); |  | 
| 34 |  | 
| 35 ok(JSON::true  eq 'true'); |  | 
| 36 ok(JSON::true  ne 'false'); |  | 
| 37 ok(JSON::true  ne 'null'); |  | 
| 38 ok(JSON::false eq 'false'); |  | 
| 39 ok(JSON::false ne 'true'); |  | 
| 40 ok(JSON::false ne 'null'); |  | 
| 41 ok(!defined JSON::null); |  | 
| 42 |  | 
| 43 is(from_json('[true]' )->[0], JSON::true); |  | 
| 44 is(from_json('[false]')->[0], JSON::false); |  | 
| 45 is(from_json('[null]' )->[0],  JSON::null); |  | 
| 46 |  | 
| 47 } |  | 
| OLD | NEW | 
|---|