Add JSON.pm to third_party

third_party/JSON/JSON-2.59/t/17_relaxed.t

Index: third_party/JSON/JSON-2.59/t/17_relaxed.t
diff --git a/third_party/JSON/JSON-2.59/t/17_relaxed.t b/third_party/JSON/JSON-2.59/t/17_relaxed.t
new file mode 100644
index 0000000000000000000000000000000000000000..e87a966593fffae2b9cb0a7d3da46e70916b924e
--- /dev/null
+++ b/third_party/JSON/JSON-2.59/t/17_relaxed.t
@@ -0,0 +1,30 @@
+# copied over from JSON::XS and modified to use JSON
+
+use Test::More;
+use strict;
+
+BEGIN { plan tests => 8 };
+
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
+
+BEGIN {
+    use lib qw(t);
+    use _unicode_handling;
+}
+
+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]"));