Add JSON.pm to third_party

third_party/JSON/JSON-2.59/t/18_json_checker.t

Index: third_party/JSON/JSON-2.59/t/18_json_checker.t
diff --git a/third_party/JSON/JSON-2.59/t/18_json_checker.t b/third_party/JSON/JSON-2.59/t/18_json_checker.t
new file mode 100644
index 0000000000000000000000000000000000000000..5b9945abeb2afb15056fc1155c497db7eed42024
--- /dev/null
+++ b/third_party/JSON/JSON-2.59/t/18_json_checker.t
@@ -0,0 +1,174 @@
+
+# use the testsuite from http://www.json.org/JSON_checker/
+# except for fail18.json, as we do not support a depth of 20 (but 16 and 32).
+
+# copied over from JSON::XS and modified to use JSON
+
+use strict;
+#no warnings;
+local $^W = undef;
+use Test::More;
+BEGIN { plan tests => 39 };
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
+
+use JSON;
+
+my $json = JSON->new->utf8->max_depth(32)->canonical;
+
+binmode DATA;
+my $num = 1;
+for (;;) {
+
+   $/ = "\n# ";
+   chomp (my $test = <DATA>)
+      or last;
+   $/ = "\n";
+   my $name = <DATA>;
+   if (my $perl = eval { $json->decode ($test) }) {
+      ok ($name =~ /^pass/, $name);
+#print $json->encode ($perl), "\n";
+      is ($json->encode ($json->decode ($json->encode ($perl))), $json->encode ($perl));
+   } else {
+      ok ($name =~ /^fail/, "$name ($@)");
+   }
+
+}
+
+__DATA__
+"A JSON payload should be an object or array, not a string."
+# fail1.json
+{"Extra value after close": true} "misplaced quoted value"
+# fail10.json
+{"Illegal expression": 1 + 2}
+# fail11.json
+{"Illegal invocation": alert()}
+# fail12.json
+{"Numbers cannot have leading zeroes": 013}
+# fail13.json
+{"Numbers cannot be hex": 0x14}
+# fail14.json
+["Illegal backslash escape: \x15"]
+# fail15.json
+[\naked]
+# fail16.json
+["Illegal backslash escape: \017"]
+# fail17.json
+[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["Too deep"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
+# fail18.json
+{"Missing colon" null}
+# fail19.json
+["Unclosed array"
+# fail2.json
+{"Double colon":: null}
+# fail20.json
+{"Comma instead of colon", null}
+# fail21.json
+["Colon instead of comma": false]
+# fail22.json
+["Bad value", truth]
+# fail23.json
+['single quote']
+# fail24.json
+["	tab	character	in	string	"]
+# fail25.json
+["tab\   character\   in\  string\  "]
+# fail26.json
+["line
+break"]
+# fail27.json
+["line\
+break"]
+# fail28.json
+[0e]
+# fail29.json
+{unquoted_key: "keys must be quoted"}
+# fail3.json
+[0e+]
+# fail30.json
+[0e+-1]
+# fail31.json
+{"Comma instead if closing brace": true,
+# fail32.json
+["mismatch"}
+# fail33.json
+["extra comma",]
+# fail4.json
+["double extra comma",,]
+# fail5.json
+[   , "<-- missing value"]
+# fail6.json
+["Comma after the close"],
+# fail7.json
+["Extra close"]]
+# fail8.json
+{"Extra comma": true,}
+# fail9.json
+[
+    "JSON Test Pattern pass1",
+    {"object with 1 member":["array with 1 element"]},
+    {},
+    [],
+    -42,
+    true,
+    false,
+    null,
+    {
+        "integer": 1234567890,
+        "real": -9876.543210,
+        "e": 0.123456789e-12,
+        "E": 1.234567890E+34,
+        "":  23456789012E66,
+        "zero": 0,
+        "one": 1,
+        "space": " ",
+        "quote": "\"",
+        "backslash": "\\",
+        "controls": "\b\f\n\r\t",
+        "slash": "/ & \/",
+        "alpha": "abcdefghijklmnopqrstuvwyz",
+        "ALPHA": "ABCDEFGHIJKLMNOPQRSTUVWYZ",
+        "digit": "0123456789",
+        "0123456789": "digit",
+        "special": "`1~!@#$%^&*()_+-={':[,]}|;.</>?",
+        "hex": "\u0123\u4567\u89AB\uCDEF\uabcd\uef4A",
+        "true": true,
+        "false": false,
+        "null": null,
+        "array":[  ],
+        "object":{  },
+        "address": "50 St. James Street",
+        "url": "http://www.JSON.org/",
+        "comment": "// /* <!-- --",
+        "# -- --> */": " ",
+        " s p a c e d " :[1,2 , 3
+
+,
+
+4 , 5        ,          6           ,7        ],"compact":[1,2,3,4,5,6,7],
+        "jsontext": "{\"object with 1 member\":[\"array with 1 element\"]}",
+        "quotes": "&#34; \u0022 %22 0x22 034 &#x22;",
+        "\/\\\"\uCAFE\uBABE\uAB98\uFCDE\ubcda\uef4A\b\f\n\r\t`1~!@#$%^&*()_+-=[]{}|;:',./<>?"
+: "A key can be any string"
+    },
+    0.5 ,98.6
+,
+99.44
+,
+
+1066,
+1e1,
+0.1e1,
+1e-1,
+1e00,2e+00,2e-00
+,"rosebud"]
+# pass1.json
+[[[[[[[[[[[[[[[[[[["Not too deep"]]]]]]]]]]]]]]]]]]]
+# pass2.json
+{
+    "JSON Test Pattern pass3": {
+        "The outermost value": "must be an object or array.",
+        "In this test": "It is an object."
+    }
+}
+
+# pass3.json