Index: trunk/src/third_party/JSON/JSON-2.59/t/e02_bool.t |
=================================================================== |
--- trunk/src/third_party/JSON/JSON-2.59/t/e02_bool.t (revision 205060) |
+++ trunk/src/third_party/JSON/JSON-2.59/t/e02_bool.t (working copy) |
@@ -1,33 +0,0 @@ |
-#!/usr/bin/perl -w |
- |
-use strict; |
- |
-use Test::More; |
-use strict; |
- |
-BEGIN { plan tests => 11 }; |
- |
-BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } |
- |
-use JSON; |
- |
-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'); |
- |
- |
- |