1 files changed, 35 insertions, 0 deletions
diff --git a/t/xe12_boolean.t b/t/xe12_boolean.t
new file mode 100644
index 0000000..9a1292c
--- /dev/null
+++ b/t/xe12_boolean.t
@@ -0,0 +1,35 @@
+
+use strict;
+use Test::More;
+
+BEGIN { plan tests => 4 };
+
+BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }
+
+use JSON -support_by_pp;
+
+BEGIN {
+    use lib qw(t);
+    use _unicode_handling;
+}
+
+
+SKIP: {
+    skip "can't use JSON::XS.", 4, unless( JSON->backend->is_xs );
+
+my $json = new JSON;
+my $bool = $json->allow_nonref->decode('true');
+
+# it's normal
+isa_ok( $bool, 'JSON::PP::Boolean' );
+is( $json->encode([ JSON::true ]), '[true]' );
+
+# make XS non support flag enable!
+$bool = $json->allow_singlequote->decode('true');
+
+isa_ok( $bool, 'JSON::PP::Boolean' );
+is( $json->encode([ JSON::true ]), '[true]' );
+
+}
+
+__END__