Imported Upstream version 4.02upstream/4.02

Change-Id: I549bbbd41e3db39e6fd6f2b1f2c4c94b94071018
Signed-off-by: Hyunjee Kim <hj0426.kim@samsung.com>

1 files changed, 45 insertions, 0 deletions

diff --git a/t/e02_bool.t b/t/e02_bool.t
new file mode 100644
index 0000000..06e8dd6
--- /dev/null
+++ b/t/e02_bool.t
@@ -0,0 +1,45 @@
+use strict;
+
+use Test::More;
+use strict;
+
+BEGIN { plan tests => 8 };
+
+BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
+
+use JSON;
+
+my $json = new JSON;
+
+diag $json->backend->isa('JSON::PP');
+my $not_not_a_number_is_a_number = (
+  $json->backend->isa('Cpanel::JSON::XS') ||
+  ($json->backend->isa('JSON::PP') && ($JSON::PP::Boolean::VERSION || $JSON::backportPP::Boolean::VERSION))
+) ? 1 : 0;
+
+is($json->encode([!1]),   '[""]');
+if ($not_not_a_number_is_a_number) {
+is($json->encode([!!2]), '[1]');
+} else {
+is($json->encode([!!2]), '["1"]');
+}
+
+is($json->encode([ 'a' eq 'b'  ]), '[""]');
+if ($not_not_a_number_is_a_number) {
+is($json->encode([ 'a' eq 'a'  ]), '[1]');
+} else {
+is($json->encode([ 'a' eq 'a'  ]), '["1"]');
+}
+
+is($json->encode([ ('a' eq 'b') + 1  ]), '[1]');
+is($json->encode([ ('a' eq 'a') + 1  ]), '[2]');
+
+# discard overload hack for JSON::XS 3.0 boolean class
+#ok(JSON::true eq 'true');
+#ok(JSON::true eq  '1');
+ok(JSON::true == 1);
+isa_ok(JSON::true, 'JSON::PP::Boolean');
+#isa_ok(JSON::true, 'JSON::Boolean');
+
+
+