combine json.org test cases into groups

- tests that pass are most important because they show ljson accepts
  everything that is valid json
- tests that fail because ljson follows the constraints set by json.org are
  good because they show the limits of ljson's leniency
- tests that fail because ljson is too lenient are okay as long as they
  don't cause a segfault or some other nasty behavior

test/tool/net/samples/fail1.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail1.json
-assert(pcall(DecodeJson, [[
-"A JSON payload should be an object or array, not a string."
-]]))

test/tool/net/samples/fail10.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail10.json
-assert(false == pcall(DecodeJson, [[
-{"Extra value after close": true} "misplaced quoted value"
-]]))

test/tool/net/samples/fail11.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail11.json
-assert(false == pcall(DecodeJson, [[
-{"Illegal expression": 1 + 2}
-]]))

test/tool/net/samples/fail12.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail12.json
-assert(false == pcall(DecodeJson, [[
-{"Illegal invocation": alert()}
-]]))

test/tool/net/samples/fail13.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail13.json
-assert(false == pcall(DecodeJson, [[
-{"Numbers cannot have leading zeroes": 013}
-]]))

test/tool/net/samples/fail14.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail14.json
-assert(false == pcall(DecodeJson, [[
-{"Numbers cannot be hex": 0x14}
-]]))

test/tool/net/samples/fail15.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail15.json
-assert(false == pcall(DecodeJson, [[
-[ "Illegal backslash escape: \x15"] 
-]]))

test/tool/net/samples/fail16.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail16.json
-assert(false == pcall(DecodeJson, [[
-[ \naked] 
-]]))

test/tool/net/samples/fail17.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail17.json
-assert(false == pcall(DecodeJson, [[
-[ "Illegal backslash escape: \017"] 
-]]))

test/tool/net/samples/fail18.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail18.json
-assert(pcall(DecodeJson, [[
-[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ "Too deep"] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] 
-]]))

test/tool/net/samples/fail19.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail19.json
-assert(false == pcall(DecodeJson, [[
-{"Missing colon" null}
-]]))

test/tool/net/samples/fail2.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail2.json
-assert(false == pcall(DecodeJson, [[
-[ "Unclosed array"
-]]))

test/tool/net/samples/fail20.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail20.json
-assert(false == pcall(DecodeJson, [[
-{"Double colon":: null}
-]]))

test/tool/net/samples/fail21.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail21.json
-assert(false == pcall(DecodeJson, [[
-{"Comma instead of colon", null}
-]]))

test/tool/net/samples/fail22.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail22.json
-assert(false == pcall(DecodeJson, [[
-[ "Colon instead of comma": false] 
-]]))

test/tool/net/samples/fail23.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail23.json
-assert(false == pcall(DecodeJson, [[
-[ "Bad value", truth] 
-]]))

test/tool/net/samples/fail24.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail24.json
-assert(false == pcall(DecodeJson, [[
-[ 'single quote'] 
-]]))

test/tool/net/samples/fail25.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail25.json
-assert(false == pcall(DecodeJson, [[
-[ "	tab	character	in	string	"] 
-]]))

test/tool/net/samples/fail26.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail26.json
-assert(false == pcall(DecodeJson, [[
-[ "tab\   character\   in\  string\  "] 
-]]))

test/tool/net/samples/fail27.lua

@@ -1,6 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail27.json
-assert(false == pcall(DecodeJson, [[
-[ "line
-break"] 
-]]))

test/tool/net/samples/fail28.lua

@@ -1,6 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail28.json
-assert(false == pcall(DecodeJson, [[
-[ "line\
-break"] 
-]]))

test/tool/net/samples/fail29.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail29.json
-assert(false == pcall(DecodeJson, [[
-[ 0e] 
-]]))

test/tool/net/samples/fail3.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail3.json
-assert(false == pcall(DecodeJson, [[
-{unquoted_key: "keys must be quoted"}
-]]))

test/tool/net/samples/fail30.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail30.json
-assert(false == pcall(DecodeJson, [[
-[ 0e+] 
-]]))

test/tool/net/samples/fail31.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail31.json
-assert(false == pcall(DecodeJson, [[
-[ 0e+-1] 
-]]))

test/tool/net/samples/fail32.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail32.json
-assert(false == pcall(DecodeJson, [[
-{"Comma instead if closing brace": true,
-]]))

test/tool/net/samples/fail33.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail33.json
-assert(false == pcall(DecodeJson, [[
-[ "mismatch"}
-]]))

test/tool/net/samples/fail4.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail4.json
-assert(false == pcall(DecodeJson, [[
-[ "extra comma",] 
-]]))

test/tool/net/samples/fail5.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail5.json
-assert(false == pcall(DecodeJson, [[
-[ "double extra comma",,] 
-]]))

test/tool/net/samples/fail6.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail6.json
-assert(false == pcall(DecodeJson, [[
-[    , "<-- missing value"] 
-]]))

test/tool/net/samples/fail7.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail7.json
-assert(false == pcall(DecodeJson, [[
-[ "Comma after the close"] ,
-]]))

test/tool/net/samples/fail8.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail8.json
-assert(false == pcall(DecodeJson, [[
-[ "Extra close"] ] 
-]]))

test/tool/net/samples/fail9.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: fail9.json
-assert(false == pcall(DecodeJson, [[
-{"Extra comma": true,}
-]]))

test/tool/net/samples/jsonorg-fail.lua

@@ -0,0 +1,101 @@
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail11.json
+assert(false == pcall(DecodeJson, [[
+{"Illegal expression": 1 + 2}
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail12.json
+assert(false == pcall(DecodeJson, [[
+{"Illegal invocation": alert()}
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail13.json
+assert(false == pcall(DecodeJson, [[
+{"Numbers cannot have leading zeroes": 013}
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail14.json
+assert(false == pcall(DecodeJson, [[
+{"Numbers cannot be hex": 0x14}
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail15.json
+assert(false == pcall(DecodeJson, [[
+[ "Illegal backslash escape: \x15"] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail16.json
+assert(false == pcall(DecodeJson, [[
+[ \naked] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail17.json
+assert(false == pcall(DecodeJson, [[
+[ "Illegal backslash escape: \017"] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail22.json
+assert(false == pcall(DecodeJson, [[
+[ "Colon instead of comma": false] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail23.json
+assert(false == pcall(DecodeJson, [[
+[ "Bad value", truth] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail24.json
+assert(false == pcall(DecodeJson, [[
+[ 'single quote'] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail29.json
+assert(false == pcall(DecodeJson, [[
+[ 0e] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail2.json
+assert(false == pcall(DecodeJson, [[
+[ "Unclosed array"
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail30.json
+assert(false == pcall(DecodeJson, [[
+[ 0e+] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail31.json
+assert(false == pcall(DecodeJson, [[
+[ 0e+-1] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail32.json
+assert(false == pcall(DecodeJson, [[
+{"Comma instead if closing brace": true,
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail33.json
+assert(false == pcall(DecodeJson, [[
+[ "mismatch"}
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail3.json
+assert(false == pcall(DecodeJson, [[
+{unquoted_key: "keys must be quoted"}
+]]))

test/tool/net/samples/jsonorg-lenient.lua

@@ -0,0 +1,90 @@
+-- json.org says the following test cases should be
+-- considered as invalid JSON, but ljson.c is lenient.
+-- we run these tests anyway just to ensure that
+-- no segfaults occurs while parsing these cases
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail4.json
+assert(nil ~= pcall(DecodeJson, [[
+[ "extra comma",] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail5.json
+assert(nil ~= pcall(DecodeJson, [[
+[ "double extra comma",,] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail6.json
+assert(nil ~= pcall(DecodeJson, [[
+[    , "<-- missing value"] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail7.json
+assert(nil ~= pcall(DecodeJson, [[
+[ "Comma after the close"] ,
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail8.json
+assert(nil ~= pcall(DecodeJson, [[
+[ "Extra close"] ] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail9.json
+assert(nil ~= pcall(DecodeJson, [[
+{"Extra comma": true,}
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail19.json
+assert(nil ~= pcall(DecodeJson, [[
+{"Missing colon" null}
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail20.json
+assert(nil ~= pcall(DecodeJson, [[
+{"Double colon":: null}
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail21.json
+assert(nil ~= pcall(DecodeJson, [[
+{"Comma instead of colon", null}
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail10.json
+assert(nil ~= pcall(DecodeJson, [[
+{"Extra value after close": true} "misplaced quoted value"
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail25.json
+assert(nil ~= pcall(DecodeJson, [[
+[ "	tab	character	in	string	"] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail26.json
+assert(nil ~= pcall(DecodeJson, [[
+[ "tab\   character\   in\  string\  "] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail27.json
+assert(nil ~= pcall(DecodeJson, [[
+[ "line
+break"] 
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail28.json
+assert(nil ~= pcall(DecodeJson, [[
+[ "line\
+break"] 
+]]))

test/tool/net/samples/jsonorg-pass.lua

@@ -60,3 +60,38 @@ assert(pcall(DecodeJson, [[
 1e00,2e+00,2e-00
 ,"rosebud"] 
 ]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: pass2.json
+assert(pcall(DecodeJson, [[
+[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ "Not too deep"] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] 
+]]))
+
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: pass3.json
+assert(pcall(DecodeJson, [[
+{
+    "JSON Test Pattern pass3": {
+        "The outermost value": "must be an object or array.",
+        "In this test": "It is an object."
+    }
+}
+
+]]))
+
+
+-- json.org says these should fail, but many parsers,
+-- including python's json.load allow the following
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail1.json  (actually passes)
+assert(pcall(DecodeJson, [[
+"A JSON payload should be an object or array, not a string."
+]]))
+
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: fail18.json (actually passes)
+assert(pcall(DecodeJson, [[
+[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ "Too deep"] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] 
+]]))

test/tool/net/samples/pass2.lua

@@ -1,5 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: pass2.json
-assert(pcall(DecodeJson, [[
-[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ "Not too deep"] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] ] 
-]]))

test/tool/net/samples/pass3.lua

@@ -1,11 +0,0 @@
--- https://www.json.org/JSON_checker/test.zip
--- JSON parsing sample test case: pass3.json
-assert(pcall(DecodeJson, [[
-{
-    "JSON Test Pattern pass3": {
-        "The outermost value": "must be an object or array.",
-        "In this test": "It is an object."
-    }
-}
-
-]]))