Imported Upstream version 4.02upstream/4.02

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

1 files changed, 43 insertions, 0 deletions

diff --git a/t/e03_bool2.t b/t/e03_bool2.t
new file mode 100644
index 0000000..23ffc72
--- /dev/null
+++ b/t/e03_bool2.t
@@ -0,0 +1,43 @@
+use Test::More;
+
+BEGIN { plan tests => 16 };
+
+BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
+use JSON;
+
+is(to_json([JSON::true]),  q|[true]|);
+is(to_json([JSON::false]), q|[false]|);
+is(to_json([JSON::null]),  q|[null]|);
+
+my $jsontext = q|[true,false,null]|;
+my $obj      = from_json($jsontext);
+#push @JSON::backportPP::Boolean::ISA, 'JSON::Boolean';
+isa_ok($obj->[0], 'JSON::PP::Boolean');
+isa_ok($obj->[1], 'JSON::PP::Boolean');
+ok(!defined $obj->[2], 'null is undef');
+
+ok($obj->[0] == 1);
+ok($obj->[0] != 0);
+ok($obj->[1] == 0);
+ok($obj->[1] != 1);
+# discard overload hack for JSON::XS 3.0 boolean class
+#ok($obj->[0] eq 'true', 'eq true');
+#ok($obj->[0] ne 'false', 'ne false');
+#ok($obj->[1] eq 'false', 'eq false');
+#ok($obj->[1] ne 'true', 'ne true');
+
+ok($obj->[0] eq $obj->[0]);
+ok($obj->[0] ne $obj->[1]);
+
+#ok(JSON::true  eq 'true');
+#ok(JSON::true  ne 'false');
+#ok(JSON::true  ne 'null');
+#ok(JSON::false eq 'false');
+#ok(JSON::false ne 'true');
+#ok(JSON::false ne 'null');
+ok(!defined JSON::null);
+
+is(from_json('[true]' )->[0], JSON::true);
+is(from_json('[false]')->[0], JSON::false);
+is(from_json('[null]' )->[0],  JSON::null);
+