| Index: trunk/src/third_party/JSON/JSON-2.59/t/xe02_bool.t
 | 
| ===================================================================
 | 
| --- trunk/src/third_party/JSON/JSON-2.59/t/xe02_bool.t	(revision 205060)
 | 
| +++ trunk/src/third_party/JSON/JSON-2.59/t/xe02_bool.t	(working copy)
 | 
| @@ -1,34 +0,0 @@
 | 
| -#!/usr/bin/perl -w
 | 
| -
 | 
| -use strict;
 | 
| -
 | 
| -use Test::More;
 | 
| -use strict;
 | 
| -
 | 
| -BEGIN { plan tests => 11 };
 | 
| -
 | 
| -BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }
 | 
| -
 | 
| -use JSON;
 | 
| -
 | 
| -SKIP: {
 | 
| -    skip "can't use JSON::XS.", 11, unless( JSON->backend->is_xs );
 | 
| -
 | 
| -my $json = new JSON;
 | 
| -
 | 
| -is($json->encode([!1]),   '[""]');
 | 
| -is($json->encode([!!2]), '["1"]');
 | 
| -
 | 
| -is($json->encode([ 'a' eq 'b'  ]), '[""]');
 | 
| -is($json->encode([ 'a' eq 'a'  ]), '["1"]');
 | 
| -
 | 
| -is($json->encode([ ('a' eq 'b') + 1  ]), '[1]');
 | 
| -is($json->encode([ ('a' eq 'a') + 1  ]), '[2]');
 | 
| -
 | 
| -ok(JSON::true eq 'true');
 | 
| -ok(JSON::true eq  '1');
 | 
| -ok(JSON::true == 1);
 | 
| -isa_ok(JSON::true, JSON->backend . '::Boolean');
 | 
| -isa_ok(JSON::true, 'JSON::Boolean');
 | 
| -
 | 
| -}
 | 
| 
 |