local i

local h = ""

for i = 1, #s do

h = h .. string.format("%02x",string.byte(s,i))

end

return h

if (c >= string.byte("0") and c <= string.byte("9")) then

return c - string.byte("0")

elseif (c >= string.byte("A") and c <= string.byte("F")) then

return (c - string.byte("A"))+10

elseif (c >= string.byte("a") and c <= string.byte("f")) then

return (c - string.byte("a"))+10

else

error "Wrong input for ascii to num convertion."

end

local i

local s = ""

for i = 1, #h, 2 do

high = ascii_to_num(string.byte(h,i))

low = ascii_to_num(string.byte(h,i+1))

s = s .. string.char((high*16)+low)

end

return s

io.write("Testing generate error '",name,"' ...")

local ok, ret, err = pcall(fn)

-- 'ok' is an error because we are testing for expicit *failure*

if ok then

print("ERROR: result ", ret, err)

failed = failed+1

else

print("ok")

passed = passed+1

end

io.write("Multiple test '",name,"' ...")

if not compare_objects({...},{cmsgpack.unpack(cmsgpack.pack(...))}) then

print("ERROR:", {...}, cmsgpack.unpack(cmsgpack.pack(...)))

failed = failed+1

else

print("ok")

passed = passed+1

end

io.write("Testing safe calling '",name,"' ...")

if not cmsgpack_safe then

print("skip: no `cmsgpack.safe` module")

skipped = skipped + 1

return

end

local ok, ret, err = pcall(fn)

if not ok then

print("ERROR: result ", ret, err)

failed = failed+1

else

print("ok")

passed = passed+1

end

if (type(a) == "table") then

local count = 0

if not depth then

depth = 1

elseif depth == 10 then

return true -- assume if match down 10 levels, the rest is okay too

end

for k,v in pairs(a) do

if not compare_objects(b[k],v, depth + 1) then return false end

count = count + 1

end

-- All the 'a' keys are equal to their 'b' equivalents.

-- Now we can check if there are extra fields in 'b'.

for k,v in pairs(b) do count = count - 1 end

if count == 0 then return true else return false end

else

return a == b

end

io.write("Circular test '",name,"' ...")

if not compare_objects(obj,cmsgpack.unpack(cmsgpack.pack(obj))) then

print("ERROR:", obj, cmsgpack.unpack(cmsgpack.pack(obj)))

failed = failed+1

else

print("ok")

passed = passed+1

end

io.write("Stream test '", name, "' ...\n")

if not mod then

print("skip: no `cmsgpack.safe` module")

skipped = skipped + 1

return

end

local argc = select('#', ...)

for i=1, argc do

test_circular(name, select(i, ...))

end

local ret = {mod.unpack(mod.pack(unpack({...})))}

for i=1, argc do

local origin = select(i, ...)

if (type(origin) == "table") then

for k,v in pairs(origin) do

local fail = not compare_objects(v, ret[i][k])

if fail then

print("ERRORa:", k, v, " not match ", ret[i][k])

failed = failed + 1

elseif not fail then

print("ok; matched stream table member")

passed = passed + 1

end

end

else

local fail = not compare_objects(origin, ret[i])

if fail then

print("ERRORc:", origin, " not match ", ret[i])

failed = failed + 1

elseif not fail then

print("ok; matched individual stream member")

passed = passed + 1

end

end

end

io.write("Testing partial unpack '",name,"' ...\n")

local first = select(1, ...)

local pack, unpacked, args, offset, cargs, ok, err

if (type(first) == "table") then

pack = first.p

args = first.remaining

offset = first.o

cargs = {pack, count, offset}

else

pack = cmsgpack.pack(unpack({...}))

args = {...}

cargs = {pack, count}

end

if offset and offset < 0 then

ok, unpacked, err = pcall(function()return {cmsgpack.unpack_limit(unpack(cargs))} end)

if not ok then

print("ok; received error as expected") --, unpacked)

passed = passed + 1

return

end

else

unpacked = {cmsgpack.unpack_limit(unpack(cargs))}

-- print ("GOT RETURNED:", unpack(unpacked))

end

if count == 0 and #unpacked == 1 then

print("ok; received zero decodes as expected")

passed = passed + 1

return

end

if not (((#unpacked)-1) == count) then

print(string.format("ERROR: received %d instead of %d objects:", (#unpacked)-1, count),

unpack(select(1, unpacked)))

failed = failed + 1

return

end

for i=2, #unpacked do

local origin = args[i-1]

--print("Comparing ", origin, unpacked[i])

if not compare_objects(origin, unpacked[i]) then

print("ERROR:", origin, " not match ", unpacked[i])

failed = failed + 1

else

print("ok; matched unpacked value to input")

passed = passed + 1

end

end

-- return the packed value and our continue offset

return pack, unpacked[1]

io.write("Testing encoder '",name,"' ...")

local result = hex(cmsgpack.pack(obj))

if optraw and (result == optraw) then

print("ok")

passed = passed + 1

elseif result ~= raw then

print("ERROR:", obj, hex(cmsgpack.pack(obj)), raw)

failed = failed+1

else

print("ok")

passed = passed+1

end

io.write("Testing one unpack '",name,"' ...")

local unpacked = {cmsgpack.unpack_one(unpack({packed, offset}))}

if #unpacked > 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]

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

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

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