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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
local fixture = require "fixture" -- require fixture before lanes so that it is not registered and will cause transfer errors
local lanes = require("lanes").configure{verbose_errors = true}
local l = lanes.linda{name = "my linda"}
local do_test = function(key_)
local t = { subtable = { [key_] = { ud = fixture.newuserdata() } } }
local b, e = pcall(l.send, l, "k", t)
assert(b == false and type(e) == "string")
local t_key = type(key_)
if t_key == "string" then
-- expecting an error about arg#2.subtable.<key_>.ud
local x, y = string.find(e, "arg#2.subtable." .. key_ .. ".ud", 1, true)
assert(x and y, "got " .. e)
elseif t_key == "boolean" then
-- expecting an error about arg#2.subtable[true|false].ud
local x, y = string.find(e, "arg#2.subtable[" .. tostring(key_) .. "].ud", 1, true)
assert(x and y, "got " .. e)
elseif t_key == "number" then
-- expecting an error about arg#2.subtable[<number>].ud
local x, y = string.find(e, "arg#2.subtable[" .. key_ .. "].ud", 1, true)
assert(x and y, "got " .. e)
elseif t_key == "userdata" then
-- light userdata results in "userdata: <some uppercase hex value>"
local stringified_key = tostring(key_)
local hex = string.match(stringified_key, "userdata: (%x+)")
-- full userdata results in something else
local t_name = hex and ("0x" .. string.lower(hex)) or "<FULL>"
-- light userdata is formatted by std::format, where the pointer is written as a lowercase hex literal
local expected = "arg#2.subtable[U:" .. t_name .. "].ud"
-- expecting an error about arg#2.subtable[U:0x<some hex value>].ud
local x, y = string.find(e, expected, 1, true)
assert(x and y, "expecting " .. expected .. " got " .. e)
end
end
do_test("bob")
do_test(true)
do_test(false)
do_test(42)
do_test(42.44)
do_test(lanes.null)
do_test(l)
|
