Skip to content
Permalink
master
Switch branches/tags

Name already in use

A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?

CBOR/test.lua

Go to file
 
 
Cannot retrieve contributors at this time
713 lines (635 sloc) 25.8 KB
Raw Blame
Open in GitHub Desktop
-- ***************************************************************
--
-- Copyright 2016 by Sean Conner. All Rights Reserved.
--
-- This library is free software; you can redistribute it and/or modify it
-- under the terms of the GNU Lesser General Public License as published by
-- the Free Software Foundation; either version 3 of the License, or (at your
-- option) any later version.
--
-- This library is distributed in the hope that it will be useful, but
-- WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
-- License for more details.
--
-- You should have received a copy of the GNU Lesser General Public License
-- along with this library; if not, see <http://www.gnu.org/licenses/>.
--
-- Comments, questions and criticisms can be sent to: sean@conman.org
--
-- luacheck: globals cbor cbor_c test
-- luacheck: ignore 611
-- ***************************************************************
cbor_c = require "org.conman.cbor_c"
cbor = require "org.conman.cbor"
-- ***********************************************************************
local function assertf(cond,...)
local msg = string.format(...)
assert(cond,msg)
end
-- ***********************************************************************
local function hextobin(hbin)
local bin = ""
for pair in hbin:gmatch "(%x%x)" do
bin = bin .. string.char(tonumber(pair,16))
end
return bin
end
-- ***********************************************************************
local function bintohex(bin)
local hbin = ""
for c in bin:gmatch(".") do
hbin = hbin .. string.format("%02X ",string.byte(c))
end
return hbin
end
-- ***********************************************************************
local function compare(a,b)
if type(a) ~= type(b) then
return false
end
if type(a) == 'table' then
for name,value in pairs(a) do
if not compare(value,b[name]) then
return false
end
end
for name,value in pairs(b) do
if not compare(value,a[name]) then
return false
end
end
return true
else
if a ~= a and b ~= b then -- handle NaNs
return true
else
return a == b
end
end
end
assert(compare({a=1,b=2},{b=2,a=1}))
assert(compare({1,2,3},{1,2,3}))
-- ***********************************************************************
local function testx(ctype,hbinary,src,srcf,destf)
local bin = hextobin(hbinary)
local encoded
io.stdout:write("\tTesting ",ctype," ...") io.stdout:flush()
if srcf ~= 'SKIP' then
if srcf then
encoded = srcf()
else
encoded = cbor.encode(src)
end
assertf(encoded == bin,"encoding for %s failed:\n%s\n%s",ctype,bintohex(bin),bintohex(encoded))
else
print("SKIPPED encoding",ctype)
encoded = bin
end
local decoded,_,rctype = cbor.decode(encoded)
assertf(rctype == ctype,"decoding type failed: wanted %s got %s",ctype,rctype)
if type(destf) == 'function' then
assertf(destf(src,decoded),"decoding for %s is different",ctype)
else
assertf(compare(src,decoded),"decoding for %s is different",ctype)
end
io.stdout:write(" GO\n")
return true
end
function test(...)
local okay,ret = pcall(testx,...)
if okay then return ret end
if type(ret) == 'string' then
print(string.format(" FAILED %s",ret))
else
print(string.format(" FAILED %s",ret.msg))
end
os.exit(1)
end
-- ***********************************************************************
local function rtst(ctype,src,f,sref,stref)
local encode
io.stdout:write("\tTesting ",ctype," ...") io.stdout:flush()
if f then
encode = f(src,sref,stref)
else
encode = cbor.encode(src,sref,stref)
end
local decode,_,rctype = cbor.decode(encode)
assertf(rctype == ctype,"decoding type failed: wanted %s got %s",ctype,rctype)
assertf(compare(src,decode),"decoding for %s is different",ctype)
io.stdout:write("GO!\n")
end
-- ***********************************************************************
-- values from RFC-7049
-- ***********************************************************************
test('UINT',"00",0)
test('UINT',"01",1)
test('UINT',"0A",10)
test('UINT',"17",23)
test('UINT',"1818",24)
test('UINT',"1819",25)
test('UINT',"1864",100)
test('UINT',"1903e8",1000)
test('UINT',"1a000f4240",1000000)
test('UINT',"1b000000e8d4a51000",1000000000000)
test('NINT',"20",-1)
test('NINT',"29",-10)
test('NINT',"3863",-100)
test('NINT',"3903E7",-1000)
test('half',"F90000",0.0, function() return cbor.SIMPLE.half(0.0) end)
test('half',"F98000",-0.0, function() return cbor.SIMPLE.half(-0.0) end)
test('half',"F93C00",1.0, function() return cbor.SIMPLE.half(1.0) end)
test('half',"F93E00",1.5)
test('half',"F97BFF",65504.0,function() return cbor.SIMPLE.half(65504.0) end)
test('single',"fa47c35000",100000.0, function() return cbor.SIMPLE.single(100000.0) end)
test('single',"fa7f7fffff",3.4028234663852886e+38,
function()
return cbor.SIMPLE.single(3.40282346638528859811704183484516925440e+38)
end)
test('double',"fb7e37e43c8800759c",1.0e+300,
function()
return cbor.SIMPLE.double(1.0e+300)
end)
test('half',"f90001",5.960464477539063e-8)
test('half',"f90400",0.00006103515625)
test('half',"f9c400",-4.0,function() return cbor.SIMPLE.half(-4) end)
test('double',"fbc010666666666666",-4.1)
test('half',"f97c00",math.huge)
test('half',"f9fe00",0/0) -- can't code a positive NaN here
test('half',"f9fc00",-math.huge)
test('single',"fa7f800000",math.huge,
function() return cbor.SIMPLE.single(math.huge) end)
test('single',"faffc00000",0/0, -- can't code positive NaN here
function() return cbor.SIMPLE.single(0.0/0.0) end)
test('single',"faff800000",-math.huge,
function() return cbor.SIMPLE.single(-math.huge) end)
test('double',"fb7ff0000000000000",math.huge,
function() return cbor.SIMPLE.double(math.huge) end)
test('double',"fbfff8000000000000",0/0, -- can't code positive NaN here
function() return cbor.SIMPLE.double(0/0) end)
test('double',"fbfff0000000000000",-math.huge,
function() return cbor.SIMPLE.double(-math.huge) end)
test('false',"F4",false)
test('true',"F5",true)
test('null',"F6",nil)
test('undefined',"F7",nil,function() return cbor.SIMPLE.undefined() end)
test('SIMPLE',"F0",16, function() return cbor.SIMPLE['16']() end)
test('SIMPLE',"f818",24, function() return cbor.SIMPLE['24']() end)
test('SIMPLE',"F8FF",255,function() return cbor.SIMPLE['255']() end)
test('_epoch',"c11a514b67b0",1363896240,
function() return cbor.TAG._epoch(1363896240) end)
test('_epoch',"c1fb41d452d9ec200000",1363896240.5,
function() return cbor.TAG._epoch(1363896240.5) end)
test('_tobase16',"d74401020304","\1\2\3\4", -- RFC wrong here
function() return cbor.TAG._tobase16 "\1\2\3\4" end)
test('_cbor',"d818456449455446","dIETF",
function() return cbor.TAG._cbor(cbor.TYPE.TEXT("IETF")) end)
test('_url',"d82076687474703a2f2f7777772e6578616d706c652e636f6d",
"http://www.example.com",
function() return cbor.TAG._url "http://www.example.com" end)
test('BIN',"40","",function() return cbor.TYPE.BIN("") end)
test('BIN',"4401020304","\1\2\3\4")
test('TEXT',"60","")
test('TEXT',"6161","a")
test('TEXT',"6449455446","IETF")
test('TEXT',"62225c",[["\]])
test('TEXT',"62c3bc","\195\188")
test('TEXT',"63e6b0b4","\230\176\180")
test('TEXT',"64f0908591","\240\144\133\145")
test('ARRAY',"80",{},function() return cbor.TYPE.ARRAY {} end)
test('ARRAY',"83010203",{1,2,3})
test('ARRAY',"8301820203820405",{ 1 , { 2 , 3 } , { 4 , 5 }})
test('ARRAY',"98190102030405060708090a0b0c0d0e0f101112131415161718181819",
{ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 })
test('MAP',"A0",{})
test('MAP',"a201020304",{ [1] = 2 , [3] = 4},
function()
return cbor.TYPE.MAP(2)
.. cbor.encode(1) .. cbor.encode(2)
.. cbor.encode(3) .. cbor.encode(4)
end)
rtst('MAP',{ [1] = 2 , [3] = 4 },cbor.TYPE.MAP)
test('MAP',"a26161016162820203",{ a = 1 , b = { 2, 3 } },
function()
return cbor.TYPE.MAP(2)
.. cbor.encode "a" .. cbor.encode(1)
.. cbor.encode "b" .. cbor.encode { 2 , 3 }
end)
rtst('MAP',{ a = 1 , b = { 2 , 3 }} )
test('ARRAY',"826161a161626163",{ "a" , { b = "c" }})
test('MAP',"a56161614161626142616361436164614461656145",
{ a = 'A' , b = 'B' , c = 'C' , d = 'D' , e = 'E' },
function()
return cbor.TYPE.MAP(5)
.. cbor.encode "a" .. cbor.encode "A"
.. cbor.encode "b" .. cbor.encode "B"
.. cbor.encode "c" .. cbor.encode "C"
.. cbor.encode "d" .. cbor.encode "D"
.. cbor.encode "e" .. cbor.encode "E"
end
)
rtst('MAP',{ a = "A" , b = 'B' , c = 'C' , d = "D" , e = [[E]] })
test('BIN',"5f42010243030405ff","\1\2\3\4\5",
function()
return cbor_c.encode(0x40)
.. cbor.TYPE.BIN "\1\2"
.. cbor.TYPE.BIN "\3\4\5"
.. cbor.SIMPLE.__break()
end)
test('TEXT',"7f657374726561646d696e67ff","streaming",
function()
return cbor_c.encode(0x60)
.. cbor.TYPE.TEXT("strea")
.. cbor.TYPE.TEXT("ming")
.. cbor.SIMPLE.__break()
end)
test('ARRAY',"9fff",{},
function()
return cbor.TYPE.ARRAY()
.. cbor.SIMPLE.__break()
end)
test('ARRAY',"9f018202039f0405ffff",{ 1 , { 2 , 3 } , { 4 , 5 }},
function()
return cbor.TYPE.ARRAY()
.. cbor.encode(1)
.. cbor.encode { 2 , 3 }
.. cbor.TYPE.ARRAY()
.. cbor.encode(4)
.. cbor.encode(5)
.. cbor.SIMPLE.__break()
.. cbor.SIMPLE.__break()
end)
test('ARRAY',"9f01820203820405ff",{ 1 , { 2 ,3 } , { 4 , 5 }},
function()
return cbor.TYPE.ARRAY()
.. cbor.encode(1)
.. cbor.encode{ 2 , 3 }
.. cbor.encode{ 4 , 5 }
.. cbor.SIMPLE.__break()
end)
test('ARRAY',"83018202039f0405ff",{ 1 , { 2 ,3 } , { 4 , 5 }},
function()
return cbor.TYPE.ARRAY(3)
.. cbor.encode(1)
.. cbor.encode { 2, 3 }
.. cbor.TYPE.ARRAY()
.. cbor.encode(4)
.. cbor.encode(5)
.. cbor.SIMPLE.__break()
end)
test('ARRAY',"83019F0203FF820405",{ 1 , { 2 ,3 } , { 4 , 5 }},
function()
return cbor.TYPE.ARRAY(3)
.. cbor.encode(1)
.. cbor.TYPE.ARRAY()
.. cbor.encode(2)
.. cbor.encode(3)
.. cbor.SIMPLE.__break()
.. cbor.encode { 4 , 5 }
end)
test('ARRAY',"9f0102030405060708090a0b0c0d0e0f101112131415161718181819ff",
{ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 },
function()
local res = cbor.TYPE.ARRAY()
for i = 1 , 25 do
res = res .. cbor.encode(i)
end
return res .. cbor.SIMPLE.__break()
end)
test('MAP',"bf61610161629f0203ffff",{ a = 1 , b = { 2, 3 } },
function()
return cbor.TYPE.MAP()
.. cbor.encode "a" .. cbor.encode(1)
.. cbor.encode "b" .. cbor.TYPE.ARRAY()
.. cbor.encode(2)
.. cbor.encode(3)
.. cbor.SIMPLE.__break()
.. cbor.SIMPLE.__break()
end)
test('ARRAY',"826161bf61626163ff",{ "a" , { b = "c" }},
function()
return cbor.TYPE.ARRAY(2)
.. cbor.encode "a"
.. cbor.TYPE.MAP()
.. cbor.encode "b" .. cbor.encode "c"
.. cbor.SIMPLE.__break()
end)
test('MAP',"bf6346756ef563416d7421ff",{ Fun = true , Amt = -2 },
function()
return cbor.TYPE.MAP()
.. cbor.encode "Fun" .. cbor.SIMPLE['true']()
.. cbor.encode "Amt" .. cbor.encode(-2)
.. cbor.SIMPLE.__break()
end)
-- ***********************************************************************
-- other tests
-- ***********************************************************************
test('TAG_1234567890',"DA499602D200",0,
function() return cbor.TAG['1234567890'](0) end)
test('_datetime',"C073323031362D30332D30315431343A31343A3333","2016-03-01T14:14:33",
function() return cbor.TAG._datetime "2016-03-01T14:14:33" end)
test('_pbignum',"C24A0102030405060708090A","\1\2\3\4\5\6\7\8\9\10",
function() return cbor.TAG._pbignum "\1\2\3\4\5\6\7\8\9\10" end)
test('_nbignum',"C34A8002030405060708090A","\128\2\3\4\5\6\7\8\9\10",
function() return cbor.TAG._nbignum "\128\2\3\4\5\6\7\8\9\10" end)
test('_decimalfraction',"C4820103",{ 1 , 3 },
function() return cbor.TAG._decimalfraction { 1 , 3 } end)
test('_bigfloat',"C5822003",{ -1 , 3 },
function() return cbor.TAG._bigfloat { -1 , 3 } end)
test('_tobase64url',"D54401020304","\1\2\3\4",
function() return cbor.TAG._tobase64url "\1\2\3\4" end)
test('_tobase64',"D64401020304","\1\2\3\4",
function() return cbor.TAG._tobase64 "\1\2\3\4" end)
test('_base64url',"D821684142434461626364","ABCDabcd",
function() return cbor.TAG._base64url "ABCDabcd" end)
test('_base64',"D822684142434461626364","ABCDabcd",
function() return cbor.TAG._base64 "ABCDabcd" end)
test('_regex',"D823712F5B52725D5B45655D5B47675D65783F2F","/[Rr][Ee][Gg]ex?/",
function() return cbor.TAG._regex "/[Rr][Ee][Gg]ex?/" end)
test('_mime',
"D824781E436F6E74656E742D547970653A206170706C69636174696F6E2F63626F72",
"Content-Type: application/cbor",
function()
return cbor.TAG._mime "Content-Type: application/cbor"
end)
test('_magic_cbor',"D9D9F7","_magic_cbor",
function() return cbor.TAG._magic_cbor() end)
-- _stringref and _nthstring tests
-- http://cbor.schmorp.de/stringref
-- This is annoying to test.
test('ARRAY',"d9010083a34472616e6b0445636f756e741901a1446e616d6548436f636b7461696ca3d819024442617468d81901190138d8190004a3d8190244466f6f64d819011902b3d8190004", -- luacheck: ignore
{
{
name = 'Cocktail',
count = 417,
rank = 4,
},
{
rank = 4,
count = 312,
name = "Bath",
},
{
count = 691,
name = "Food",
rank = 4
},
},
function()
local stref = {}
return cbor.TAG._stringref(nil,nil,stref)
.. cbor.TYPE.ARRAY(3)
.. cbor.TYPE.MAP(3)
.. cbor.TYPE.BIN("rank",nil,stref)
.. cbor.encode(4,nil,stref)
.. cbor.TYPE.BIN("count",nil,stref)
.. cbor.encode(417,nil,stref)
.. cbor.TYPE.BIN("name",nil,stref)
.. cbor.TYPE.BIN("Cocktail",nil,stref)
.. cbor.TYPE.MAP(3)
.. cbor.TYPE.BIN("name",nil,stref)
.. cbor.TYPE.BIN("Bath",nil,stref)
.. cbor.TYPE.BIN("count",nil,stref)
.. cbor.encode(312,nil,stref)
.. cbor.TYPE.BIN("rank",nil,stref)
.. cbor.encode(4,nil,stref)
.. cbor.TYPE.MAP(3)
.. cbor.TYPE.BIN("name",nil,stref)
.. cbor.TYPE.BIN("Food",nil,stref)
.. cbor.TYPE.BIN("count",nil,stref)
.. cbor.encode(691,nil,stref)
.. cbor.TYPE.BIN("rank",nil,stref)
.. cbor.encode(4,nil,stref)
end)
rtst('ARRAY', {
{
name = 'Cocktail',
count = 417,
rank = 4,
},
{
rank = 4,
count = 312,
name = "Bath",
},
{
count = 691,
name = "Food",
rank = 4
},
},nil,nil,{})
-- NOTE: in the 2nd example, the JSON array and the binary CBOR
-- representation don't match. The JSON array here is fixed to match the
-- actual binary presented.
test('ARRAY',"d9010098204131433232324333333341344335353543363636433737374338383843393939436161614362626243636363436464644365656543666666436767674368686843696969436a6a6a436b6b6b436c6c6c436d6d6d436e6e6e436f6f6f4370707043717171437272724473737373d81901d8191743727272d8191818", -- luacheck: ignore
{
"1", "222", "333", "4", "555", "666", "777", "888", "999",
"aaa", "bbb", "ccc", "ddd", "eee", "fff", "ggg", "hhh", "iii",
"jjj", "kkk", "lll", "mmm", "nnn", "ooo", "ppp", "qqq", "rrr",
"ssss" , "333", "qqq", "rrr", "ssss"
},
function()
local data =
{
"1", "222", "333", "4", "555", "666", "777", "888", "999",
"aaa", "bbb", "ccc", "ddd", "eee", "fff", "ggg", "hhh", "iii",
"jjj", "kkk", "lll", "mmm", "nnn", "ooo", "ppp", "qqq", "rrr",
"ssss" , "333", "qqq", "rrr", "ssss"
}
local stref = {}
local res = cbor.TAG._stringref(nil,nil,stref) .. cbor.TYPE.ARRAY(#data,nil,stref)
for _,s in ipairs(data) do
res = res .. cbor.TYPE.BIN(s,nil,stref)
end
return res
end)
rtst('ARRAY', {
"1", "222", "333", "4", "555", "666", "777", "888", "999",
"aaa", "bbb", "ccc", "ddd", "eee", "fff", "ggg", "hhh", "iii",
"jjj", "kkk", "lll", "mmm", "nnn", "ooo", "ppp", "qqq", "rrr",
"ssss" , "333", "qqq", "rrr", "ssss"
},nil,nil,{})
test('ARRAY',"d901008563616161d81900d90100836362626263616161d81901d901008263636363d81900d81900",
{
"aaa" , "aaa" ,
{ "bbb" , "aaa" , "aaa" } ,
{ "ccc" , "ccc" } ,
"aaa"
},
function()
local stref1 = {}
local stref2 = {}
local stref3 = {}
return cbor.TAG._stringref(nil,nil,stref1)
.. cbor.TYPE.ARRAY(5)
.. cbor.encode("aaa",nil,stref1)
.. cbor.encode("aaa",nil,stref1)
.. cbor.TAG._stringref(nil,nil,stref2)
.. cbor.TYPE.ARRAY(3)
.. cbor.encode("bbb",nil,stref2)
.. cbor.encode("aaa",nil,stref2)
.. cbor.encode("aaa",nil,stref2)
.. cbor.TAG._stringref(nil,nil,stref3)
.. cbor.TYPE.ARRAY(2)
.. cbor.encode("ccc",nil,stref3)
.. cbor.encode("ccc",nil,stref3)
.. cbor.encode("aaa",nil,stref1)
end)
-- _perlobj
test('_perlobj',"d81a826c4d793a3a4461746554696d651a00bc614e",
{ "My::DateTime" , 12345678 },
function() return cbor.TAG._perlobj { 'My::DateTime' , 12345678 } end)
-- _shareable and __sharedref
-- http://cbor.schmorp.de/value-sharing
test('ARRAY',"83d81c80d81d0080",{{},{},{}},
function()
local x = {}
local ref = {}
return cbor.TYPE.ARRAY(3)
.. cbor.TYPE.ARRAY(x,ref)
.. cbor.TYPE.ARRAY(x,ref)
.. cbor.TYPE.ARRAY({})
end,
function(_,v)
assertf(type(v) == 'table',"_sharedref: wanted table got %s",type(v))
assertf(#v == 3,"_sharedref: wanted a table of three entries")
assertf(type(v[1]) == 'table',"_sharedref: wanted v[1] as table")
assertf(type(v[2]) == 'table',"_sharedref: wanged v[2] as table")
assertf(type(v[3]) == 'table','_sharedref: wanted v[3] as table')
assertf(v[1] == v[2],"_sharedref: wanted first two tables equal")
return true
end)
local ref1 = {} ref1[1] = ref1
test('ARRAY',"d81c81d81d00",ref1,
function()
return cbor.encode(ref1,{})
end,
function(_,v)
assertf(type(v) == 'table',"_sharedref: wanted table got %s",type(v))
assertf(#v == 1,"_sharedref: length bad %d",#v)
assertf(v[1] == v,"_sharedref: not a reference")
return true
end)
local ref2 = { 1 , 2 , 3 }
rtst('ARRAY',{ ref2 , ref2 },
function(v)
return cbor.encode(v,{})
end)
-- _rational
-- http://peteroupc.github.io/CBOR/rational.html
test('_rational',"d81e820103",{ 1 , 3 },
function() return cbor.TAG._rational { 1 , 3 } end)
-- _uuid
-- https://github.com/lucas-clemente/cbor-specs/blob/master/uuid.md
test('_uuid',"D825506BA7B8119DAD11D180B400C04FD430C8",
"k\167\184\17\157\173\17\209\128\180\0\192O\2120\200",
function()
return cbor.TAG._uuid "k\167\184\17\157\173\17\209\128\180\0\192O\2120\200"
end)
-- _language
-- http://peteroupc.github.io/CBOR/langtags.html
test('_language',"d8268262656E6548656C6C6F",{ "en" , "Hello"},
function() return cbor.TAG._language { "en" , "Hello" } end)
test('_language',"d8268262667267426F6E6A6F7572",{ "fr" , "Bonjour" },
function() return cbor.TAG._language { "fr" , "Bonjour" } end)
-- _id
-- https://github.com/lucas-clemente/cbor-specs/blob/master/id.md
test('_id',"D82768696F2E737464696E","io.stdin",
function() return cbor.TAG._id "io.stdin" end)
-- _bmime
-- http://peteroupc.github.io/CBOR/binarymime.html
test('_bmime',"D901014401020304","\1\2\3\4",
function() return cbor.TAG._bmime "\1\2\3\4" end)
-- _decimalfractionexp and _bigfloatexp
-- http://peteroupc.github.io/CBOR/bigfrac.html
test('_decimalfractionexp',
"D90108824A0102030405060708090A03",
{ "\1\2\3\4\5\6\7\8\9\10" , 3 },
function()
return cbor.TAG._decimalfractionexp { "\1\2\3\4\5\6\7\8\9\10" , 3 }
end)
test('_bigfloatexp',
"D90109824A0102030405060708090A03",
{ "\1\2\3\4\5\6\7\8\9\10" , 3 },
function()
return cbor.TAG._bigfloatexp { "\1\2\3\4\5\6\7\8\9\10" , 3 }
end)
-- _indirection
-- http://cbor.schmorp.de/indirection
test('_indirection',"D95652820102" , { 1 , 2 },
function() return cbor.TAG._indirection { 1 , 2 } end)
-- _ipaddress
-- http://www.employees.org/~ravir/cbor-network.txt
-- IPv6 encoding example wrong in spec
test('_ipaddress','D9010444C00A0A01',"\192\10\10\1",
function() return cbor.TAG._ipaddress "\192\10\10\1" end)
test('_ipaddress',"D90104460123456789AB","\01\35\69\103\137\171",
function() return cbor.TAG._ipaddress "\01\35\69\103\137\171" end)
test('_ipaddress',"D901045020010db885a3000000008a2e03707334",hextobin("20010db885a3000000008a2e03707334"),
function() return cbor.TAG._ipaddress(hextobin("20010db885a3000000008a2e03707334")) end)
-- ***********************************************************************
-- And now, test *both* types of references in the same structure. In order
-- to ensure a consistent check, we use arrays only for this test. The
-- second test using a MAP.
-- ***********************************************************************
local hoade = { 'first' , "Sean" , 'last' , "Hoade" , 'occupation' , "writer" }
local conner = { 'first' , "Sean" , 'last' , "Conner" , 'occupation' , "programmer" }
local array = { hoade , hoade , hoade , conner , conner , conner }
test('ARRAY',
"D90100D81C86D81C86656669727374645365616E646C61737465486F6164656A6F636375706174696F6E66777269746572D81D01D81D01D81C86D81900D81901D8190266436F6E6E6572D819046A70726F6772616D6D6572D81D02D81D02", -- luacheck: ignore
array,
function()
return cbor.encode(array,{},{})
end)
local hoade2 = { first = "Sean" , last = "Hoade" , occupation = "writer" }
local conner2 = { first = "Sean" , last = "Conner" , occupation = "programmer" }
local array2 = { hoade2 , hoade2 , hoade2 , conner2 , conner2 , conner2 }
rtst('ARRAY',array2,nil,{},{})
-- *********************************************************************
-- Read https://britram.github.io/rains-prototype/#cbor-object for
-- context for this test.
-- *********************************************************************
local q =
{
[0] = -- content key
{
{
4 , -- query type
-- ------------------------------------------------------------------
-- This is a sparse array, and because of that, it's stored in the
-- hash portion of the table, which means the order of fields is
-- unpredictable. In order to fix this, we'll set a __tocbor method
-- on this subtable to make sure we have this in order.
-- ------------------------------------------------------------------
setmetatable(
{
[ 5] = "www.conman.org.", -- query name
[13] = { "." }, -- query context
[14] = { 1 , 2 , 3 } , -- query types
},
{
__tocbor = function(self)
return cbor.TYPE.MAP(3)
.. cbor.encode( 5) .. cbor.encode(self[ 5])
.. cbor.encode(13) .. cbor.encode(self[13])
.. cbor.encode(14) .. cbor.encode(self[14])
end
})
}
}
}
test('_rains',"DA00E99BA8A100818204A3056F7777772E636F6E6D616E2E6F72672E0D81612E0E83010203"
,q,function() return cbor.TAG._rains(q) end)
-- *********************************************************************
-- Test for a custom null and undefined values. By default, Lua treats
-- null and undefined as nil when decoding, and any nil value becomes null
-- when encoding. If you want special sentinel values, define cbor.null
-- and cbor.undefined to some unique value. NaN will break, because it is
-- not equal even unto itself. An empty table is good enough.
-- *********************************************************************
cbor.null = {}
cbor.undefined = {}
test('null',"F6",cbor.null)
test('undefined',"F7",cbor.undefined)
test('ARRAY',"82F6F7",{ cbor.null , cbor.undefined })