1 files changed, 24 insertions, 0 deletions
diff --git a/t/17_relaxed.t b/t/17_relaxed.t
new file mode 100644
index 0000000..01cf81c
--- /dev/null
+++ b/t/17_relaxed.t
@@ -0,0 +1,24 @@
+# copied over from JSON::XS and modified to use JSON
+
+use strict;
+use Test::More;
+BEGIN { plan tests => 8 };
+
+BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
+
+use utf8;
+use JSON;
+
+
+my $json = JSON->new->relaxed;
+
+ok ('[1,2,3]' eq encode_json $json->decode (' [1,2, 3]'));
+ok ('[1,2,4]' eq encode_json $json->decode ('[1,2, 4 , ]'));
+ok (!eval { $json->decode ('[1,2, 3,4,,]') });
+ok (!eval { $json->decode ('[,1]') });
+
+ok ('{"1":2}' eq encode_json $json->decode (' {"1":2}'));
+ok ('{"1":2}' eq encode_json $json->decode ('{"1":2,}'));
+ok (!eval { $json->decode ('{,}') });
+
+ok ('[1,2]' eq encode_json $json->decode ("[1#,2\n ,2,#  ]  \n\t]"));