-- lua_cmsgpack.c lib tests
-- Copyright(C) 2012 Salvatore Sanfilippo, All Rights Reserved.
-- See the copyright notice at the end of lua_cmsgpack.c for more information.
local cmsgpack = require "cmsgpack"
local ok, cmsgpack_safe = pcall(require, 'cmsgpack.safe')
if not ok then cmsgpack_safe = nil end
print("------------------------------------")
print("Lua version: " .. (_G.jit and _G.jit.version or _G._VERSION))
print("------------------------------------")
local unpack = unpack or table.unpack
passed = 0
failed = 0
skipped = 0
function hex(s)
local i
local h = ""
for i = 1, #s do
h = h .. string.format("%02x",string.byte(s,i))
end
return h
end
function ascii_to_num(c)
if (c >= string.byte("0") and c = string.byte("A") and c = string.byte("a") and c 2 then
print("ERROR: unpacked more than one object:", unpack(unpacked))
failed = failed + 1
elseif not compare_objects(unpacked[2], check) then
print("ERROR: unpacked unexpected result:", unpack(unpacked))
failed = failed + 1
else
print("ok") --; unpacked", unpacked[2])
passed = passed + 1
end
return unpacked[1]
end
function test_unpack(name,raw,obj)
io.write("Testing decoder '",name,"' ...")
if not compare_objects(cmsgpack.unpack(unhex(raw)),obj) then
print("ERROR:", obj, raw, cmsgpack.unpack(unhex(raw)))
failed = failed+1
else
print("ok")
passed = passed+1
end
end
function test_pack_and_unpack(name,obj,raw)
test_pack(name,obj,raw)
test_unpack(name,raw,obj)
end
local function test_global()
io.write("Testing global variable ...")
if _VERSION == "Lua 5.1" then
if not _G.cmsgpack then
print("ERROR: Lua 5.1 should set global")
failed = failed+1
else
print("ok")
passed = passed+1
end
else
if _G.cmsgpack then
print("ERROR: Lua 5.2 should not set global")
failed = failed+1
else
print("ok")
passed = passed+1
end
end
end
local function test_array()
io.write("Testing array detection ...")
local a = {a1 = 1, a2 = 1, a3 = 1, a4 = 1, a5 = 1, a6 = 1, a7 = 1, a8 = 1, a9 = 1}
a[1] = 10 a[2] = 20 a[3] = 30
a.a1,a.a2,a.a3,a.a4,a.a5,a.a6,a.a7,a.a8, a.a9 = nil
local test_obj = {10,20,30}
assert(compare_objects(test_obj, a))
local etalon = cmsgpack.pack(test_obj)
local encode = cmsgpack.pack(a)
if etalon ~= encode then
print("ERROR:")
print("", "expected: ", hex(etalon))
print("", " got: ", hex(encode))
failed = failed+1
else
print("ok")
passed = passed+1
end
io.write("Testing array detection ...")
a = {["1"] = 20, [2] = 30, [3] = 40}
encode = cmsgpack.pack(a)
if etalon == encode then
print("ERROR:")
print("", " incorrect: ", hex(etalon))
failed = failed+1
else
print("ok")
passed = passed+1
end
end
test_global()
test_array()
test_circular("positive fixnum",17);
test_circular("negative fixnum",-1);
test_circular("true boolean",true);
test_circular("false boolean",false);
test_circular("float",1.5);
test_circular("positive uint8",101);
test_circular("negative int8",-101);
test_circular("positive uint16",20001);
test_circular("negative int16",-20001);
test_circular("positive uint32",20000001);
test_circular("negative int32",-20000001);
test_circular("positive uint64",200000000001);
test_circular("negative int64",-200000000001);
test_circular("uint8 max",0xff);
test_circular("uint16 max",0xffff);
test_circular("uint32 max",0xffffffff);
test_circular("int8 min",-128);
test_circular("int16 min",-32768);
test_circular("int32 min",-2147483648);
test_circular("nil",nil);
test_circular("fix string","abc");
test_circular("string16","xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab");
test_circular("fix array (1)",{1,2,3,"foo"})
test_circular("fix array (2)",{})
test_circular("fix array (3)",{1,{},{}})
test_circular("fix map",{a=5,b=10,c="string"})
test_circular("positive infinity", math.huge)
test_circular("negative infinity", -math.huge)
test_circular("high bits", 0xFFFFFFFF)
test_circular("higher bits", 0xFFFFFFFFFFFFFFFF)
test_circular("high bits", -0x7FFFFFFF)
test_circular("higher bits", -0x7FFFFFFFFFFFFFFF)
-- The following test vectors are taken from the Javascript lib at:
-- https://github.com/cuzic/MessagePack-JS/blob/master/test/test_pack.html
test_pack_and_unpack("positive fixnum",0,"00")
test_pack_and_unpack("negative fixnum",-1,"ff")
test_pack_and_unpack("uint8",255,"ccff")
test_pack_and_unpack("fix raw","a","a161")
test_pack_and_unpack("fix array",{0},"9100")
test_pack_and_unpack("fix map",{a=64},"81a16140")
test_pack_and_unpack("nil",nil,"c0")
test_pack_and_unpack("true",true,"c3")
test_pack_and_unpack("false",false,"c2")
test_pack_and_unpack("double",0.1,"cb3fb999999999999a")
test_pack_and_unpack("uint16",32768,"cd8000")
test_pack_and_unpack("uint32",1048576,"ce00100000")
test_pack_and_unpack("int8",-64,"d0c0")
test_pack_and_unpack("int16",-1024,"d1fc00")
test_pack_and_unpack("int32",-1048576,"d2fff00000")
test_pack_and_unpack("int64",-1099511627776,"d3ffffff0000000000")
test_pack_and_unpack("raw8"," ","d921202020202020202020202020202020202020202020202020202020202020202020")
test_pack_and_unpack("raw16"," ","da01012020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020")
test_pack_and_unpack("array 16",{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},"dc001000000000000000000000000000000000")
-- Regression test for issue #4, cyclic references in tables.
a = {x=nil,y=5}
b = {x=a}
a['x'] = b
pack = cmsgpack.pack(a)
-- Note: the generated result isn't stable because the order of traversal for
-- a table isn't defined. So far we've only noticed two serializations of a
-- (and the second serialization only happens on Lua 5.3 sometimes)
test_pack("regression for issue #4 output matching",a,"82a17905a17881a17882a17905a17881a17882a17905a17881a17882a17905a17881a17882a17905a17881a17882a17905a17881a17882a17905a17881a17882a17905a17881a178c0", "82a17881a17882a17881a17882a17881a17882a17881a17882a17881a17882a17881a17882a17881a17882a17881a178c0a17905a17905a17905a17905a17905a17905a17905a17905")
test_circular("regression for issue #4 circular",a)
-- test unpacking malformed input without crashing. This actually returns one integer value (the ASCII code)
-- for each character in the string. We don't care about the return value, just that we don't segfault.
cmsgpack.unpack("82a17881a17882a17881a17882a17881a17882a17881a17882a17881a17882a17881a17882a17881a17882a17881a17")
-- Test unpacking input which may cause overflow memory access ("-1" for 32-bit size fields).
-- These should cause a Lua error but not a segfault.
test_error("unpack big string with missing input", function() cmsgpack.unpack("\219\255\255\255\255Z") end)
test_error("unpack big array with missing input", function() cmsgpack.unpack("\221\255\255\255\255Z") end)
test_error("unpack big map with missing input", function() cmsgpack.unpack("\223\255\255\255\255Z") end)
-- Tests from github.com/moteus
test_circular("map with number keys", {[1] = {1,2,3}})
test_circular("map with string keys", {["1"] = {1,2,3}})
test_circular("map with string keys", {["1"] = 20, [2] = 30, ["3"] = 40})
test_circular("map with float keys", {[1.5] = {1,2,3}})
test_error("unpack nil", function() cmsgpack.unpack(nil) end)
test_error("unpack table", function() cmsgpack.unpack({}) end)
test_error("unpack udata", function() cmsgpack.unpack(io.stdout) end)
test_noerror("unpack nil", function() cmsgpack_safe.unpack(nil) end)
test_noerror("unpack nil", function() cmsgpack_safe.unpack(nil) end)
test_noerror("unpack table", function() cmsgpack_safe.unpack({}) end)
test_noerror("unpack udata", function() cmsgpack_safe.unpack(io.stdout) end)
test_multiple("two ints", 1, 2)
test_multiple("holes", 1, nil, 2, nil, 4)
-- Streaming/Multi-Input Tests
test_stream(cmsgpack, "simple", {a=1}, {b=2}, {c=3}, 4, 5, 6, 7)
test_stream(cmsgpack_safe, "safe simple", {a=1}, {b=2}, {c=3}, 4, 5, 6, 7)
test_stream(cmsgpack, "oddities", {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0}, {a=64}, math.huge, -math.huge)
test_stream(cmsgpack_safe, "safe oddities", {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, {0}, {a=64}, math.huge, -math.huge)
test_stream(cmsgpack, "strange things", nil, {}, {nil}, a, b, b, b, a, a, b, {c = a, d = b})
test_stream(cmsgpack_safe, "strange things", nil, {}, {nil}, a, b, b, b, a, a, b, {c = a, d = b})
test_error("pack nothing", function() cmsgpack.pack() end)
test_noerror("pack nothing safe", function() cmsgpack_safe.pack() end)
test_circular("large object test",
{A=9483, a=9483, aa=9483, aal=9483, aalii=9483, aam=9483, Aani=9483,
aardvark=9483, aardwolf=9483, Aaron=9483, Aaronic=9483, Aaronical=9483,
Aaronite=9483, Aaronitic=9483, Aaru=9483, Ab=9483, aba=9483, Ababdeh=9483,
Ababua=9483, abac=9483, abaca=9483, abacate=9483, abacay=9483,
abacinate=9483, abacination=9483, abaciscus=9483, abacist=9483,
aback=9483, abactinal=9483, abactinally=9483, abaction=9483, abactor=9483,
abaculus=9483, abacus=9483, Abadite=9483, abaff=9483, abaft=9483,
abaisance=9483, abaiser=9483, abaissed=9483, abalienate=9483,
abalienation=9483, abalone=9483, Abama=9483, abampere=9483, abandon=9483,
abandonable=9483, abandoned=9483, abandonedly=9483, abandonee=9483,
abandoner=9483, abandonment=9483, Abanic=9483, Abantes=9483,
abaptiston=9483, Abarambo=9483, Abaris=9483, abarthrosis=9483,
abarticular=9483, abarticulation=9483, abas=9483, abase=9483, abased=9483,
abasedly=9483, abasedness=9483, abasement=9483, abaser=9483, Abasgi=9483,
abash=9483, abashed=9483, abashedly=9483, abashedness=9483,
abashless=9483, abashlessly=9483, abashment=9483, abasia=9483,
abasic=9483, abask=9483, Abassin=9483, abastardize=9483, abatable=9483,
abate=9483, abatement=9483, abater=9483, abatis=9483, abatised=9483,
abaton=9483, abator=9483, abattoir=9483, Abatua=9483, abature=9483,
abave=9483, abaxial=9483, abaxile=9483, abaze=9483, abb=9483, Abba=9483,
abbacomes=9483, abbacy=9483, Abbadide=9483, abbas=9483, abbasi=9483,
abbassi=9483, Abbasside=9483, abbatial=9483, abbatical=9483, abbess=9483,
abbey=9483, abbeystede=9483, Abbie=9483, abbot=9483, abbotcy=9483,
abbotnullius=9483, abbotship=9483, abbreviate=9483, abbreviately=9483,
abbreviation=9483, abbreviator=9483, abbreviatory=9483, abbreviature=9483,
Abby=9483, abcoulomb=9483, abdal=9483, abdat=9483, Abderian=9483,
Abderite=9483, abdest=9483, abdicable=9483, abdicant=9483, abdicate=9483,
abdication=9483, abdicative=9483, abdicator=9483, Abdiel=9483,
abditive=9483, abditory=9483, abdomen=9483, abdominal=9483,
Abdominales=9483, abdominalian=9483, abdominally=9483,
abdominoanterior=9483, abdominocardiac=9483, abdominocentesis=9483,
abdominocystic=9483, abdominogenital=9483, abdominohysterectomy=9483,
abdominohysterotomy=9483, abdominoposterior=9483, abdominoscope=9483,
abdominoscopy=9483, abdominothoracic=9483, abdominous=9483,
abdominovaginal=9483, abdominovesical=9483, abduce=9483, abducens=9483,
abducent=9483, abduct=9483, abduction=9483, abductor=9483, Abe=9483,
abeam=9483, abear=9483, abearance=9483, abecedarian=9483,
abecedarium=9483, abecedary=9483, abed=9483, abeigh=9483, Abel=9483,
abele=9483, Abelia=9483, Abelian=9483, Abelicea=9483, Abelite=9483,
abelite=9483, Abelmoschus=9483, abelmosk=9483, Abelonian=9483,
abeltree=9483, Abencerrages=9483, abenteric=9483, abepithymia=9483,
Aberdeen=9483, aberdevine=9483, Aberdonian=9483, Aberia=9483,
aberrance=9483, aberrancy=9483, aberrant=9483, aberrate=9483,
aberration=9483, aberrational=9483, aberrator=9483, aberrometer=9483,
aberroscope=9483, aberuncator=9483, abet=9483, abetment=9483,
abettal=9483, abettor=9483, abevacuation=9483, abey=9483, abeyance=9483,
abeyancy=9483, abeyant=9483, abfarad=9483, abhenry=9483, abhiseka=9483,
abhominable=9483, abhor=9483, abhorrence=9483, abhorrency=9483,
abhorrent=9483, abhorrently=9483, abhorrer=9483, abhorrible=9483,
abhorring=9483, Abhorson=9483, abidal=9483, abidance=9483, abide=9483,
abider=9483, abidi=9483, abiding=9483, abidingly=9483, abidingness=9483,
Abie=9483, Abies=9483, abietate=9483, abietene=9483, abietic=9483,
abietin=9483, Abietineae=9483, abietineous=9483, abietinic=9483,
Abiezer=9483, Abigail=9483, abigail=9483, abigailship=9483, abigeat=9483,
abigeus=9483, abilao=9483, ability=9483, abilla=9483, abilo=9483,
abintestate=9483, abiogenesis=9483, abiogenesist=9483, abiogenetic=9483,
abiogenetical=9483, abiogenetically=9483, abiogenist=9483,
abiogenous=9483, abiogeny=9483, abiological=9483, abiologically=9483,
abiology=9483, abiosis=9483, abiotic=9483, abiotrophic=9483,
abiotrophy=9483, Abipon=9483, abir=9483, abirritant=9483, abirritate=9483,
abirritation=9483, abirritative=9483, abiston=9483, Abitibi=9483,
abiuret=9483, abject=9483, abjectedness=9483, abjection=9483,
abjective=9483, abjectly=9483, abjectness=9483, abjoint=9483,
abjudge=9483, abjudicate=9483, abjudication=9483, abjunction=9483,
abjunctive=9483, abjuration=9483, abjuratory=9483, abjure=9483,
abjurement=9483, abjurer=9483, abkar=9483, abkari=9483, Abkhas=9483,
Abkhasian=9483, ablach=9483, ablactate=9483, ablactation=9483,
ablare=9483, ablastemic=9483, ablastous=9483, ablate=9483, ablation=9483,
ablatitious=9483, ablatival=9483, ablative=9483, ablator=9483,
ablaut=9483, ablaze=9483, able=9483, ableeze=9483, ablegate=9483,
ableness=9483, ablepharia=9483, ablepharon=9483, ablepharous=9483,
Ablepharus=9483, ablepsia=9483, ableptical=9483, ableptically=9483,
abler=9483, ablest=9483, ablewhackets=9483, ablins=9483, abloom=9483,
ablow=9483, ablude=9483, abluent=9483, ablush=9483, ablution=9483,
ablutionary=9483, abluvion=9483, ably=9483, abmho=9483, Abnaki=9483,
abnegate=9483, abnegation=9483, abnegative=9483, abnegator=9483,
Abner=9483, abnerval=9483, abnet=9483, abneural=9483, abnormal=9483,
abnormalism=9483, abnormalist=9483, abnormality=9483, abnormalize=9483,
abnormally=9483, abnormalness=9483, abnormity=9483, abnormous=9483,
abnumerable=9483, Abo=9483, aboard=9483, Abobra=9483, abode=9483,
abodement=9483, abody=9483, abohm=9483, aboil=9483, abolish=9483,
abolisher=9483, abolishment=9483, abolition=9483, abolitionary=9483,
abolitionism=9483, abolitionist=9483, abolitionize=9483, abolla=9483,
aboma=9483, abomasum=9483, abomasus=9483, abominable=9483,
abominableness=9483, abominably=9483, abominate=9483, abomination=9483,
abominator=9483, abomine=9483, Abongo=9483, aboon=9483, aborad=9483,
aboral=9483, aborally=9483, abord=9483, aboriginal=9483,
aboriginality=9483, aboriginally=9483, aboriginary=9483, aborigine=9483,
abort=9483, aborted=9483, aborticide=9483, abortient=9483,
abortifacient=9483, abortin=9483, abortion=9483, abortional=9483,
abortionist=9483, abortive=9483, abortively=9483, abortiveness=9483,
abortus=9483, abouchement=9483, abound=9483, abounder=9483,
abounding=9483, aboundingly=9483, about=9483, abouts=9483, above=9483,
aboveboard=9483, abovedeck=9483, aboveground=9483, aboveproof=9483,
abovestairs=9483, abox=9483, abracadabra=9483, abrachia=9483,
abradant=9483, abrade=9483, abrader=9483, Abraham=9483, Abrahamic=9483,
Abrahamidae=9483, Abrahamite=9483, Abrahamitic=9483, abraid=9483,
Abram=9483, Abramis=9483, abranchial=9483, abranchialism=9483,
abranchian=9483, Abranchiata=9483, abranchiate=9483, abranchious=9483,
abrasax=9483, abrase=9483, abrash=9483, abrasiometer=9483, abrasion=9483,
abrasive=9483, abrastol=9483, abraum=9483, abraxas=9483, abreact=9483,
abreaction=9483, abreast=9483, abrenounce=9483, abret=9483, abrico=9483,
abridge=9483, abridgeable=9483, abridged=9483, abridgedly=9483,
abridger=9483, abridgment=9483, abrim=9483, abrin=9483, abristle=9483,
abroach=9483, abroad=9483, Abrocoma=9483, abrocome=9483, abrogable=9483,
abrogate=9483, abrogation=9483, abrogative=9483, abrogator=9483,
Abroma=9483, Abronia=9483, abrook=9483, abrotanum=9483, abrotine=9483,
abrupt=9483, abruptedly=9483, abruption=9483, abruptly=9483,
abruptness=9483, Abrus=9483, Absalom=9483, absampere=9483, Absaroka=9483,
absarokite=9483, abscess=9483, abscessed=9483, abscession=9483,
abscessroot=9483, abscind=9483, abscise=9483, abscision=9483,
absciss=9483, abscissa=9483, abscissae=9483, abscisse=9483,
abscission=9483, absconce=9483, abscond=9483, absconded=9483,
abscondedly=9483, abscondence=9483})
-- Test limited streaming
packed, offset = test_partial_unpack("unpack 1a out of 7", 1, "a", "b", "c", "d", "e", "f", "g")
packed, offset = test_partial_unpack("unpack 1b of remaining 7", 1, {p=packed,o=offset,remaining={"b"}})
packed, offset = test_partial_unpack("unpack 1c of remaining 7", 1, {p=packed,o=offset,remaining={"c"}})
packed, offset = test_partial_unpack("unpack 1d of remaining 7", 1, {p=packed,o=offset,remaining={"d"}})
packed, offset = test_partial_unpack("unpack 1e of remaining 7", 1, {p=packed,o=offset,remaining={"e"}})
packed, offset = test_partial_unpack("unpack 1f of remaining 7", 1, {p=packed,o=offset,remaining={"f"}})
packed, offset = test_partial_unpack("unpack 1g of remaining 7", 1, {p=packed,o=offset,remaining={"g"}})
packed, offset = test_partial_unpack("unpack 1nil of remaining 7", 0, {p=packed,o=offset})
packed, offset = test_partial_unpack("unpack 3 out of 7", 3, "a", "b", "c", "d", "e", "f", "g")
test_partial_unpack("unpack remaining 4", 4, {p=packed,o=offset,remaining={"d", "e", "f", "g"}})
test_unpack_one("simple", packed, "a")
offset = test_unpack_one("simple", cmsgpack.pack({f = 3, j = 2}, "m", "e", 7), {f = 3, j = 2})
test_unpack_one("simple", cmsgpack.pack({f = 3, j = 2}, "m", "e", 7), "m", offset)
-- Final report
print()
print("TEST PASSED:",passed)
print("TEST FAILED:",failed)
print("TEST SKIPPED:",skipped)
if failed > 0 then
os.exit(1)
end