updated test cases to use pcall

pcall catches errors

test/tool/net/samples/fail1.lua

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

test/tool/net/samples/fail10.lua

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

test/tool/net/samples/fail11.lua

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

test/tool/net/samples/fail12.lua

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

test/tool/net/samples/fail13.lua

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

test/tool/net/samples/fail14.lua

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

test/tool/net/samples/fail15.lua

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

test/tool/net/samples/fail16.lua

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

test/tool/net/samples/fail17.lua

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

test/tool/net/samples/fail18.lua

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

test/tool/net/samples/fail19.lua

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

test/tool/net/samples/fail2.lua

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

test/tool/net/samples/fail20.lua

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

test/tool/net/samples/fail21.lua

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

test/tool/net/samples/fail22.lua

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

test/tool/net/samples/fail23.lua

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

test/tool/net/samples/fail24.lua

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

test/tool/net/samples/fail25.lua

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

test/tool/net/samples/fail26.lua

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

test/tool/net/samples/fail27.lua

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

test/tool/net/samples/fail28.lua

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

test/tool/net/samples/fail29.lua

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

test/tool/net/samples/fail3.lua

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

test/tool/net/samples/fail30.lua

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

test/tool/net/samples/fail31.lua

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

test/tool/net/samples/fail32.lua

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

test/tool/net/samples/fail33.lua

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

test/tool/net/samples/fail4.lua

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

test/tool/net/samples/fail5.lua

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

test/tool/net/samples/fail6.lua

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

test/tool/net/samples/fail7.lua

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

test/tool/net/samples/fail8.lua

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

test/tool/net/samples/fail9.lua

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

test/tool/net/samples/pass1.lua

@@ -1,6 +1,6 @@
 -- https://www.json.org/JSON_checker/test.zip
 -- JSON parsing sample test case: pass1.json
-assert(DecodeJson([[
+assert(pcall(DecodeJson, [[
 [ 
     "JSON Test Pattern pass1",
     {"object with 1 member":[ "array with 1 element"] },

test/tool/net/samples/pass2.lua

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

test/tool/net/samples/pass3.lua

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