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