Index: third_party/JSON/JSON-2.59/t/e02_bool.t |
diff --git a/third_party/JSON/JSON-2.59/t/e02_bool.t b/third_party/JSON/JSON-2.59/t/e02_bool.t |
new file mode 100644 |
index 0000000000000000000000000000000000000000..22831c400c587d6c1a3cc75a0f6cadf36e7abcb4 |
--- /dev/null |
+++ b/third_party/JSON/JSON-2.59/t/e02_bool.t |
@@ -0,0 +1,32 @@ |
+ |
+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'); |
+ |
+ |
+ |