1 2 use strict; 3 4 use Test::More; 5 use strict; 6 7 BEGIN { plan tests => 11 }; 8 9 BEGIN { $ENV{PERL_JSON_BACKEND} = 1; } 10 11 use JSON; 12 13 SKIP: { 14 skip "can't use JSON::XS.", 11, unless( JSON->backend->is_xs ); 15 16 my $json = new JSON; 17 18 is($json->encode([!1]), '[""]'); 19 is($json->encode([!!2]), '["1"]'); 20 21 is($json->encode([ 'a' eq 'b' ]), '[""]'); 22 is($json->encode([ 'a' eq 'a' ]), '["1"]'); 23 24 is($json->encode([ ('a' eq 'b') + 1 ]), '[1]'); 25 is($json->encode([ ('a' eq 'a') + 1 ]), '[2]'); 26 27 ok(JSON::true eq 'true'); 28 ok(JSON::true eq '1'); 29 ok(JSON::true == 1); 30 isa_ok(JSON::true, JSON->backend . '::Boolean'); 31 isa_ok(JSON::true, 'JSON::Boolean'); 32 33 } 34
