mirror of https://github.com/swig/swig.git
128 lines
4.5 KiB
Lua
128 lines
4.5 KiB
Lua
require_to_globs("li_std_string")
|
|
catch_undef_globs() -- catch "undefined" global variables
|
|
|
|
-- helper to check type
|
|
function is_std_string(s)
|
|
return type(s)=='userdata' and swig_type(s)=='std::string *'
|
|
end
|
|
|
|
-- std::string by value is just a Lua string
|
|
s=test_value("foo")
|
|
assert(type(s)=="string" and s=="foo")
|
|
|
|
-- std::string by const ref is also just a Lua string
|
|
s=test_const_reference("foo")
|
|
assert(type(s)=="string" and s=="foo")
|
|
|
|
-- std:string* is an object
|
|
obj=test_pointer_out()
|
|
assert(is_std_string(obj) and obj:c_str()=="x") -- check type & value
|
|
|
|
test_pointer(obj) -- this wants an object
|
|
|
|
cobj=test_const_pointer_out()
|
|
assert(is_std_string(cobj) and cobj:c_str()=="x") -- check type & value
|
|
|
|
test_const_pointer(cobj)
|
|
|
|
-- this shouldn't work, but it does
|
|
-- swig doesn't appear to diff between const object ptrs & object ptrs very well
|
|
test_pointer(cobj) -- this wants an non const object (give it a const one!)
|
|
|
|
-- refs are also wrapped as ptrs (unless the correct typemaps are applied)
|
|
robj=test_reference_out()
|
|
assert(is_std_string(robj) and robj:c_str()=="test_reference_out message") -- check type & value
|
|
|
|
test_reference(robj)
|
|
test_reference(obj) -- object ptr is ok
|
|
test_reference(cobj) -- obj const ptr is also ok
|
|
|
|
-- Test INPUT, INOUT and OUTPUT string& typemaps:
|
|
assert(test_reference_input("hello")=="hello")
|
|
s=test_reference_inout("hello")
|
|
assert(s=="hellohello")
|
|
assert(test_reference_output()=="output")
|
|
|
|
-- throwing string
|
|
ok,ex=pcall(test_throw)
|
|
assert(not ok and type(ex)=="string") -- failed & threw string
|
|
|
|
ok,ex=pcall(test_const_reference_throw)
|
|
assert(not ok and type(ex)=="string") -- failed & threw string
|
|
|
|
-- const ptrs are now converted to lua strings
|
|
-- they used to be std::string*
|
|
ok,ex=pcall(test_const_pointer_throw)
|
|
assert(not ok and type(ex)=="string") -- failed & threw object
|
|
|
|
-- ditto non const ptrs
|
|
ok,ex=pcall(test_pointer_throw)
|
|
assert(not ok and type(ex)=="string") -- failed & threw object
|
|
|
|
-- testing std::string variables
|
|
-- Global variables
|
|
s = "initial string"
|
|
assert (li_std_string.GlobalString2 == "global string 2")
|
|
li_std_string.GlobalString2 = s
|
|
assert (li_std_string.GlobalString2 == s)
|
|
assert (li_std_string.ConstGlobalString == "const global string")
|
|
|
|
-- Member variables
|
|
myStructure = Structure()
|
|
assert(myStructure.MemberString2 == "member string 2")
|
|
myStructure.MemberString2 = s
|
|
assert (myStructure.MemberString2 == s)
|
|
assert (myStructure.ConstMemberString == "const member string")
|
|
|
|
assert (li_std_string.Structure_StaticMemberString2 == "static member string 2")
|
|
li_std_string.Structure_StaticMemberString2 = s
|
|
assert (li_std_string.Structure_StaticMemberString2 == s)
|
|
assert (li_std_string.Structure_ConstStaticMemberString == "const static member string")
|
|
|
|
|
|
-- testing the structure (these are some old tests which predated the std::string variable tests above)
|
|
struc=Structure()
|
|
|
|
assert(type(struc.MemberString2)=="string") -- typemaps make this a string
|
|
assert(type(struc.ConstMemberString)=="string")
|
|
|
|
-- set a const (should fail with error)
|
|
assert(not pcall(function () struc.ConstMemberString="c" end))
|
|
--print(struc.MemberString:data(),struc.MemberString2,struc.ConstMemberString:data())
|
|
|
|
--check type again
|
|
assert(type(struc.MemberString2)=="string") -- typemaps make this a string
|
|
assert(type(struc.ConstMemberString)=="string")
|
|
|
|
-- for static types: they are really variables,
|
|
-- so we must still use the module name
|
|
|
|
-- check static type
|
|
assert(type(li_std_string.Structure_StaticMemberString2)=="string")
|
|
assert(type(li_std_string.Structure_ConstStaticMemberString)=="string")
|
|
|
|
-- try setting (should fail with error)
|
|
--li_std_string.Structure_StaticMemberString2='e'
|
|
assert(not pcall(function () li_std_string.Structure_ConstStaticMemberString='f' end))
|
|
--[[print(li_std_string.Structure_StaticMemberString:data(),
|
|
li_std_string.Structure_StaticMemberString2,
|
|
li_std_string.Structure_ConstStaticMemberString:data())]]
|
|
|
|
-- check static type again
|
|
assert(type(li_std_string.Structure_StaticMemberString)=="string")
|
|
assert(type(li_std_string.Structure_StaticMemberString2)=="string")
|
|
assert(type(li_std_string.Structure_ConstStaticMemberString)=="string")
|
|
|
|
|
|
assert(stdstring_empty()=="")
|
|
assert(c_empty()=="")
|
|
assert(c_null()==nil)
|
|
assert(get_null(c_null())==nil)
|
|
assert(get_null(c_empty())=="non-null")
|
|
assert(get_null(stdstring_empty())=="non-null")
|
|
|
|
-- Regression test for bug fixed in SWIG 4.2.0: depending on the order of
|
|
-- evaluation of function arguments by the compiler, a numeric value might be
|
|
-- passed as an empty string (seen with GCC 12.2 on x86-64 Linux).
|
|
assert(test_value(1234) == "1234")
|