test.lua

-- for c++ function call
function main()
    print("start")

    local a = newA()

    a:set_int(123)
    print("a:get_int() ", a:get_int())
    assert(a:get_int() == 123, "get_int mismatch")
    assert(a:get_int_const() == 123, "get_int_const mismatch")

    a:set_string("abc")
    print("a:set_string() ", a:get_string())
    assert(a:get_string() == "abc", "get_string mismatch")

    printA(a)

    local aa = a:get_this()
    print("aa == a ", aa == a)
    assert(aa == a, "pointer identity mismatch")
    printA(aa)

    print("done")
end

-- for global lua function call
function benchmark(n, log)
    local begin = os.time()
    local a = newA()
    local sum = 0
    for i = 1, n do
        a:get_int()
        a:set_int(i)
        sum = sum + i
    end
    local cost = os.time() - begin
    print(cost, log, sum)
    printA(a)
    return cost, log, sum, a
end

-- for 0-arg lua function call test
function zero_arg_func()
    return 42
end

-- for table lua function call
_G.test = {}
_G.test.func = {}
function _G.test.func.test(a, b)
    return a - b
end

local ok, err = pcall(main)
if not ok then
    print(err)
    error(err)
end