From 30f2f46474bf4eda5f10d4c64a07cde01d469f66 Mon Sep 17 00:00:00 2001 From: chai Date: Mon, 15 Nov 2021 11:54:17 +0800 Subject: *rename DefaultContent -> BuiltIn --- .../Libraries/json4lua/examples/tests.lua | 223 --------------------- 1 file changed, 223 deletions(-) delete mode 100644 Data/DefaultContent/Libraries/json4lua/examples/tests.lua (limited to 'Data/DefaultContent/Libraries/json4lua/examples/tests.lua') diff --git a/Data/DefaultContent/Libraries/json4lua/examples/tests.lua b/Data/DefaultContent/Libraries/json4lua/examples/tests.lua deleted file mode 100644 index 2e58b6e..0000000 --- a/Data/DefaultContent/Libraries/json4lua/examples/tests.lua +++ /dev/null @@ -1,223 +0,0 @@ ---[[ -Some basic tests for JSON4Lua. -]]-- - ---- Compares two tables for being data-identical. -function compareData(a,b) - if (type(a)=='string' or type(a)=='number' or type(a)=='boolean' or type(a)=='nil') then return a==b end - -- After basic data types, we're only interested in tables - if (type(a)~='table') then return true end - -- Check that a has everything b has - for k,v in pairs(b) do - if (not compareData( a[k], v ) ) then return false end - end - for k,v in pairs(a) do - if (not compareData( v, b[k] ) ) then return false end - end - return true -end - ---- --- Checks that our compareData function works properly -function testCompareData() - s = "name" - r = "name" - assert(compareData(s,r)) - assert(not compareData('fred',s)) - assert(not compareData(nil, s)) - assert(not compareData("123",123)) - assert(not compareData(false, nil)) - assert(compareData(true, true)) - assert(compareData({1,2,3},{1,2,3})) - assert(compareData({'one',2,'three'},{'one',2,'three'})) - assert(not compareData({'one',2,4},{4,2,'one'})) - assert(compareData({one='ichi',two='nichi',three='san'}, {three='san',two='nichi',one='ichi'})) - s = { one={1,2,3}, two={one='hitotsu',two='futatsu',three='mitsu'} } - assert(compareData(s,s)) - t = { one={1,2,3}, two={one='een',two='twee',three='drie'} } - assert(not compareData(s,t)) -end - -testCompareData() - --- --- --- Performs some perfunctory tests on JSON module -function testJSON4Lua() - json = require('json') - - if nil then - -- Test encodeString - s = [["\" -]] - r = json._encodeString(s) - assert(r=='\\"\\\\\\"\\n') - s = [["""\\\"]] - r = json._encodeString(s) - assert(r==[[\"\"\"\\\\\\\"]]) - - end - - -- Test encode for basic strings (complicated strings) - s = [[Hello, Lua!]] - r = json.encode(s) - assert(r=='"Hello, Lua!"') - s = [["\" -]] - r = json.encode(s) - assert(r=='\"\\"\\\\\\"\\n\"') - s = [["""\\\"]] - r = json.encode(s) - assert(r==[["\"\"\"\\\\\\\""]]) - - -- Test encode for numeric values - s = 23 - r = json.encode(s) - assert(r=='23') - s=48.123 - r = json.encode(s) - assert(r=='48.123') - - -- Test encode for boolean values - assert(json.encode(true)=='true') - assert(json.encode(false)=='false') - assert(json.encode(nil)=='null') - - -- Test encode for arrays - s = {1,2,3} - r = json.encode(s) - assert(r=="[1,2,3]") - s = {9,9,9} - r = json.encode(s) - assert(r=="[9,9,9]") - - -- Complex array test - s = { 2, 'joe', false, nil, 'hi' } - r = json.encode(s) - assert(r=='[2,"joe",false,null,"hi"]') - - -- Test encode for tables - s = {Name='Craig',email='craig@lateral.co.za',age=35} - r = json.encode(s) - -- NB: This test can fail because of order: need to test further once - -- decoding is supported. - -- assert(r==[[{"age":35,"Name":"Craig","email":"craig@lateral.co.za"}]]) - - -- Test encoding tables with numeric (string) indexes - s = {} - s['1']='One' - r = json.encode(s) - -- print("r = ", r) - assert(r=='{"1":"One"}') - - s['2']= {One='Uno'} - r = json.encode(s) - assert(compareData(json.decode(r), s)) - - -- Test decode_scanWhitespace - if nil then - s = " \n \r \t " - e = json._decode_scanWhitespace(s,1) - assert(e==string.len(s)+1) - s = " \n\r\t4" - assert(json._decode_scanWhitespace(s,1)==5) - - -- Test decode_scanString - s = [["Test"]] - r,e = json._decode_scanString(s,1) - assert(r=='Test' and e==7) - s = [["This\nis a \"test"]] - r = json._decode_scanString(s,1) - assert(r=="This\nis a \"test") - - s = [["Test\u00A7\\"]] - r,e = json._decode_scanString(s,1) - assert(r=="Test\xC2\xA7\\" and e==9) - - -- Test decode_scanNumber - s = [[354]] - r,e = json._decode_scanNumber(s,1) - assert(r==354 and e==4) - s = [[ 4565.23 AND OTHER THINGS ]] - r,e = json._decode_scanNumber(s,2) - assert(r==4565.23 and e==9) - s = [[ -23.22 and ]] - r,e = json._decode_scanNumber(s,2) - assert(r==-23.22 and e==8) - - -- Test decode_scanConstant - s = "true" - r,e = json._decode_scanConstant(s,1) - assert(r==true and e==5) - s = " false " - r,e = json._decode_scanConstant(s,3) - assert(r==false and e==8) - s = "1null6" - r,e = json._decode_scanConstant(s,2) - assert(r==nil and e==6) - - -- Test decode_scanArray - s = "[1,2,3]" - r,e = json._decode_scanArray(s,1) - assert(compareData(r,{1,2,3})) - s = [[[ 1 , 3 ,5 , "Fred" , true, false, null, -23 ] ]] - r,e = json._decode_scanArray(s,1) - assert(compareData(r, {1,3,5,'Fred',true,false,nil,-23} ) ) - s = "[3,5,null,7,9]" - r,e = json._decode_scanArray(s,1) - assert(compareData(r, {3,5,nil,7,9})) - s = "[3,5,null,7,9,null,null]" - r,e = json._decode_scanArray(s,1) - assert(compareData(r, {3,5,nil,7,9,nil,nil})) - - end - - s = [["Test\u00A7\\\""]] - r,e = json.decode(s) - assert(r=="Test\xC2\xA7\\\"", r) - - -- Test decode_scanObject - s = [[ {"one":1, "two":2, "three":"three", "four":true} ]] - r,e = json.decode(s) - -- for x,y in pairs(r) do - -- print(x,y) - -- end - assert(compareData(r,{one=1,two=2,three='three',four=true})) - s = [[ { "one" : { "first":1,"second":2,"third":3}, "two":2, "three":false } ]] - r,e = json.decode(s) - assert(compareData(r, {one={first=1,second=2,third=3},two=2,three=false})) - s = [[ { "primes" : [2,3,5,7,9], "user":{"name":"craig","age":35,"programs_lua":true}, - "lua_is_great":true } ]] - r,e = json.decode(s) - assert(compareData(r, {primes={2,3,5,7,9},user={name='craig',age=35,programs_lua=true},lua_is_great=true})) - - -- Test json.null management - t = { 1,2,json.null,4 } - assert( json.encode(t)=="[1,2,null,4]" ) - t = {x=json.null } - r = json.encode(t) - assert( json.encode(t) == '{"x":null}' ) - - -- Test comment decoding - s = [[ /* A comment - that spans - a few lines - */ - "test" - ]] - r,e = json.decode(s) - assert(r=='test',"Comment decoding failed") - - -- Per error reported by M.Hund, with incorrect decoding of string-numbered tables - s = {} - subt = {a="a",b="b",c="c"} - s['1'] = subt - s['2'] = subt - s['3'] = subt - r = json.decode('{"1":{"a":"a","b":"b","c":"c"},"2":{"a":"a","b":"b","c":"c"},"3":{"a":"a","b":"b","c":"c"}}') - assert(compareData(s, r)) -end - -testJSON4Lua() - -print("JSON4Lua tests completed successfully") -- cgit v1.1-26-g67d0