131 lines
3.0 KiB
Lua
131 lines
3.0 KiB
Lua
|
|
-- Only relevant in LUAJIT.
|
|
if type(jit) ~= 'table' then return end
|
|
|
|
local SUITE = require('TestSuite').new('cdata')
|
|
SUITE:setEnviroment{
|
|
format = require('pretty'),
|
|
analyze_byte_string = require 'analyze_byte_string',
|
|
}
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Test stuff.
|
|
|
|
local ffi = require('ffi')
|
|
ffi.cdef[[
|
|
typedef struct foo { int a, b; } foo_t;
|
|
|
|
void free(void *ptr);
|
|
void *malloc(size_t size);
|
|
int poll(struct pollfd *fds, unsigned long nfds, int timeout);
|
|
]]
|
|
|
|
-- TODO: Add more advanced understanding of cdata.
|
|
|
|
|
|
local function format_test (t)
|
|
SUITE:addTest(t.expect, function ()
|
|
assert_equal(t.expect, format(t.input, t.options))
|
|
end)
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Understanding binary data
|
|
|
|
SUITE:addTest('Understand ascii', function ()
|
|
local str = 'hello world'
|
|
local info = analyze_byte_string(str)
|
|
assert_equal('ascii', info.most_likely)
|
|
end)
|
|
|
|
SUITE:addTest('Understand utf8', function ()
|
|
local str = 'Æh? Hvø Tæler Då Om?'
|
|
local info = analyze_byte_string(str)
|
|
assert_equal('utf8', info.most_likely)
|
|
end)
|
|
|
|
SUITE:addTest('Understand binary', function ()
|
|
local str = '\190\098\140\097\255'
|
|
local info = analyze_byte_string(str)
|
|
print(format(info))
|
|
assert_equal('binary', info.most_likely)
|
|
end)
|
|
|
|
SUITE:addTest('More binary', function ()
|
|
local str = '\098\140\097\140\100'
|
|
local info = analyze_byte_string(str)
|
|
assert_equal('binary', info.most_likely)
|
|
end)
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
format_test {
|
|
input = ffi.C.poll,
|
|
expect = 'cdata<.+>: 0x%x+',
|
|
}
|
|
|
|
do
|
|
local list = ffi.new('char [17]')
|
|
for i = 0, 16 do list[i] = i end
|
|
format_test {
|
|
input = list,
|
|
expect = 'cdata<.+>: 0x%x+',
|
|
}
|
|
end
|
|
|
|
do
|
|
local list = ffi.new('int [17]')
|
|
for i = 0, 16 do list[i] = i end
|
|
format_test {
|
|
input = list,
|
|
expect = 'cdata<.+>: 0x%x+',
|
|
}
|
|
end
|
|
|
|
do
|
|
local list = ffi.new('char [10]')
|
|
for i = 0, 10-1 do list[i] = i + 65 end
|
|
format_test {
|
|
input = list,
|
|
expect = 'cdata<.+>: 0x%x+',
|
|
}
|
|
end
|
|
|
|
do
|
|
local mat = ffi.new('char [3][3]')
|
|
for x = 0, 2 do for y = 0, 2 do mat[x][y] = x * 16 + y end end
|
|
format_test {
|
|
input = mat,
|
|
expect = 'cdata<.+>: 0x%x+',
|
|
}
|
|
end
|
|
|
|
do
|
|
local p = ffi.gc(ffi.C.malloc(1), ffi.C.free)
|
|
format_test {
|
|
input = p,
|
|
expect = 'cdata<.+>: 0x%x+',
|
|
}
|
|
end
|
|
|
|
SUITE:addTest('a_very_small_part_of_math', function ()
|
|
local p = ffi.new('char[1]')
|
|
p[0] = 27
|
|
local actual_result = format(p + 0, {})
|
|
assert_equal('Derp', actual_result)
|
|
end)
|
|
|
|
do
|
|
local p = ffi.new('foo_t[1]')
|
|
p[0].a = 27
|
|
p[0].b = 27
|
|
format_test {
|
|
input = p + 0,
|
|
expect = 'cdata<.+>: 0x%x+',
|
|
}
|
|
end
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
return SUITE
|