81 lines
1.6 KiB
Lua
81 lines
1.6 KiB
Lua
local loaded = {}
|
|
local linked = {}
|
|
|
|
local LUA_NAN_ARITHMETIC = -(0 / 0)
|
|
local LUA_NAN_CANONICAL = -(0 / 0)
|
|
local LUA_NAN_DEFAULT = -(0 / 0)
|
|
local LUA_INFINITY = math.huge
|
|
|
|
local function is_number_equal(lhs, rhs)
|
|
if type(lhs) ~= "number" or type(rhs) ~= "number" then
|
|
return false
|
|
end
|
|
|
|
return math.abs(lhs - rhs) < 0.00001 or string.format("%.3g", lhs) == string.format("%.3g", rhs)
|
|
end
|
|
|
|
local function assert_eq(lhs, rhs, level)
|
|
if lhs == rhs or is_number_equal(lhs, rhs) then
|
|
return
|
|
end
|
|
|
|
lhs = tostring(lhs)
|
|
rhs = tostring(rhs)
|
|
level = (level or 1) + 1
|
|
|
|
error(lhs .. " ~= " .. rhs, level)
|
|
end
|
|
|
|
local function assert_neq(lhs, rhs, level)
|
|
if lhs ~= rhs and not is_number_equal(lhs, rhs) then
|
|
return
|
|
end
|
|
|
|
lhs = tostring(lhs)
|
|
rhs = tostring(rhs)
|
|
level = (level or 1) + 1
|
|
|
|
error(lhs .. " == " .. rhs, level)
|
|
end
|
|
|
|
local function raw_invoke(func, ...)
|
|
return func(...)
|
|
end
|
|
|
|
local function assert_trap(func, ...)
|
|
if pcall(func, ...) then
|
|
error("Failed to trap", 2)
|
|
end
|
|
end
|
|
|
|
local function assert_return(data, wanted)
|
|
for i, v in ipairs(wanted) do
|
|
assert_eq(data[i], v, 2)
|
|
end
|
|
end
|
|
|
|
local function assert_exhaustion(func, ...)
|
|
if pcall(func, ...) then
|
|
error("Failed to exhaust", 2)
|
|
end
|
|
end
|
|
|
|
linked.spectest = {
|
|
func_list = {
|
|
print = print,
|
|
print_f32 = print,
|
|
print_f64 = print,
|
|
print_f64_f64 = print,
|
|
print_i32 = print,
|
|
print_i32_f32 = print,
|
|
},
|
|
global_list = {
|
|
global_f32 = { value = 666 },
|
|
global_f64 = { value = 666 },
|
|
global_i32 = { value = 666 },
|
|
global_i64 = { value = 666LL },
|
|
},
|
|
table_list = { table = { data = {} } },
|
|
memory_list = { memory = rt.allocator.new(1, 2) },
|
|
}
|