converted json.org tests into lua files

DecodeJson works on strings, so I pasted every JSON file as a
multiline string into a lua file. This required one small change to the
test cases, which is putting a space after every [ or ], so that Lua
doesn't get confused by [[ or ]] which are the multiline string
terminators (see pass2.lua for an example).

test/tool/net/samples/fail1.json

@@ -1 +0,0 @@
-"A JSON payload should be an object or array, not a string."

test/tool/net/samples/fail1.lua

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

test/tool/net/samples/fail10.json

@@ -1 +0,0 @@
-{"Extra value after close": true} "misplaced quoted value"

test/tool/net/samples/fail10.lua

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

test/tool/net/samples/fail11.json

@@ -1 +0,0 @@
-{"Illegal expression": 1 + 2}

test/tool/net/samples/fail11.lua

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

test/tool/net/samples/fail12.json

@@ -1 +0,0 @@
-{"Illegal invocation": alert()}

test/tool/net/samples/fail12.lua

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

test/tool/net/samples/fail13.json

@@ -1 +0,0 @@
-{"Numbers cannot have leading zeroes": 013}

test/tool/net/samples/fail13.lua

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

test/tool/net/samples/fail14.json

@@ -1 +0,0 @@
-{"Numbers cannot be hex": 0x14}

test/tool/net/samples/fail14.lua

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

test/tool/net/samples/fail15.json

@@ -1 +0,0 @@
-["Illegal backslash escape: \x15"]

test/tool/net/samples/fail15.lua

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

test/tool/net/samples/fail16.json

@@ -1 +0,0 @@
-[\naked]

test/tool/net/samples/fail16.lua

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

test/tool/net/samples/fail17.json

@@ -1 +0,0 @@
-["Illegal backslash escape: \017"]

test/tool/net/samples/fail17.lua

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

test/tool/net/samples/fail18.json

@@ -1 +0,0 @@
-[[[[[[[[[[[[[[[[[[[["Too deep"]]]]]]]]]]]]]]]]]]]]

test/tool/net/samples/fail18.lua

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

test/tool/net/samples/fail19.json

@@ -1 +0,0 @@
-{"Missing colon" null}

test/tool/net/samples/fail19.lua

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

test/tool/net/samples/fail2.json

@@ -1 +0,0 @@
-["Unclosed array"

test/tool/net/samples/fail2.lua

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

test/tool/net/samples/fail20.json

@@ -1 +0,0 @@
-{"Double colon":: null}

test/tool/net/samples/fail20.lua

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

test/tool/net/samples/fail21.json

@@ -1 +0,0 @@
-{"Comma instead of colon", null}

test/tool/net/samples/fail21.lua

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

test/tool/net/samples/fail22.json

@@ -1 +0,0 @@
-["Colon instead of comma": false]

test/tool/net/samples/fail22.lua

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

test/tool/net/samples/fail23.json

@@ -1 +0,0 @@
-["Bad value", truth]

test/tool/net/samples/fail23.lua

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

test/tool/net/samples/fail24.json

@@ -1 +0,0 @@
-['single quote']

test/tool/net/samples/fail24.lua

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

test/tool/net/samples/fail25.json

@@ -1 +0,0 @@
-["	tab	character	in	string	"]

test/tool/net/samples/fail25.lua

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

test/tool/net/samples/fail26.json

@@ -1 +0,0 @@
-["tab\   character\   in\  string\  "]

test/tool/net/samples/fail26.lua

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

test/tool/net/samples/fail27.json

@@ -1,2 +0,0 @@
-["line
-break"]

test/tool/net/samples/fail27.lua

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

test/tool/net/samples/fail28.json

@@ -1,2 +0,0 @@
-["line\
-break"]

test/tool/net/samples/fail28.lua

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

test/tool/net/samples/fail29.json

@@ -1 +0,0 @@
-[0e]

test/tool/net/samples/fail29.lua

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

test/tool/net/samples/fail3.json

@@ -1 +0,0 @@
-{unquoted_key: "keys must be quoted"}

test/tool/net/samples/fail3.lua

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

test/tool/net/samples/fail30.json

@@ -1 +0,0 @@
-[0e+]

test/tool/net/samples/fail30.lua

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

test/tool/net/samples/fail31.json

@@ -1 +0,0 @@
-[0e+-1]

test/tool/net/samples/fail31.lua

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

test/tool/net/samples/fail32.json

@@ -1 +0,0 @@
-{"Comma instead if closing brace": true,

test/tool/net/samples/fail32.lua

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

test/tool/net/samples/fail33.json

@@ -1 +0,0 @@
-["mismatch"}

test/tool/net/samples/fail33.lua

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

test/tool/net/samples/fail4.json

@@ -1 +0,0 @@
-["extra comma",]

test/tool/net/samples/fail4.lua

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

test/tool/net/samples/fail5.json

@@ -1 +0,0 @@
-["double extra comma",,]

test/tool/net/samples/fail5.lua

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

test/tool/net/samples/fail6.json

@@ -1 +0,0 @@
-[   , "<-- missing value"]

test/tool/net/samples/fail6.lua

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

test/tool/net/samples/fail7.json

@@ -1 +0,0 @@
-["Comma after the close"],

test/tool/net/samples/fail7.lua

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

test/tool/net/samples/fail8.json

@@ -1 +0,0 @@
-["Extra close"]]

test/tool/net/samples/fail8.lua

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

test/tool/net/samples/fail9.json

@@ -1 +0,0 @@
-{"Extra comma": true,}

test/tool/net/samples/fail9.lua

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

test/tool/net/samples/pass1.lua

@@ -1,3 +1,6 @@
+-- https://www.json.org/JSON_checker/test.zip
+-- JSON parsing sample test case: pass1.json
+assert(DecodeJson([[
 [ 
     "JSON Test Pattern pass1",
     {"object with 1 member":[ "array with 1 element"] },
@@ -56,3 +59,4 @@
 1e-1,
 1e00,2e+00,2e-00
 ,"rosebud"] 
+]]))

test/tool/net/samples/pass2.json

@@ -1 +0,0 @@
-[[[[[[[[[[[[[[[[[[["Not too deep"]]]]]]]]]]]]]]]]]]]

test/tool/net/samples/pass2.lua

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

test/tool/net/samples/pass3.lua

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

test/tool/net/test.mk

@@ -6,9 +6,13 @@ PKGS += TEST_TOOL_NET
 TEST_TOOL_NET = $(TOOL_NET_A_DEPS) $(TOOL_NET_A)
 TEST_TOOL_NET_A = o/$(MODE)/test/tool/net/net.a
 TEST_TOOL_NET_FILES := $(wildcard test/tool/net/*)
+TEST_TOOL_NET_JSONORG := $(wildcard test/tool/net/samples/*)
+TEST_TOOL_NET_JSONORG_LUA = $(filter %.lua,$(TEST_TOOL_NET_JSONORG))
 TEST_TOOL_NET_SRCS = $(filter %.c,$(TEST_TOOL_NET_FILES))
 TEST_TOOL_NET_SRCS_TEST = $(filter %_test.c,$(TEST_TOOL_NET_SRCS))
-TEST_TOOL_NET_LUAS_TEST = $(filter %_test.lua,$(TEST_TOOL_NET_FILES))
+TEST_TOOL_NET_LUAS_TEST = \
+	$(filter %_test.lua,$(TEST_TOOL_NET_FILES)) \
+	$(TEST_TOOL_NET_JSONORG_LUA)
 TEST_TOOL_NET_HDRS = $(filter %.h,$(TEST_TOOL_NET_FILES))
 TEST_TOOL_NET_COMS = $(TEST_TOOL_NET_SRCS:%.c=o/$(MODE)/%.com)