bf48768e04
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7476 626c5289-ae23-0410-ae9c-e8d60b6d4f22
104 lines
3.6 KiB
Lua
104 lines
3.6 KiB
Lua
require("import") -- the import fn
|
|
import("li_std_string") -- import lib
|
|
|
|
for k,v in pairs(li_std_string) do _G[k]=v end -- move to global
|
|
|
|
-- catch "undefined" global variables
|
|
setmetatable(getfenv(),{__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
|
|
|
|
-- helper to check type
|
|
function is_std_string(s)
|
|
return type(s)=='userdata' and swig_type(s)=='_p_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 shouldnt work, but it does
|
|
-- swig doesnt 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 wrappered 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
|
|
|
|
-- throwing string
|
|
ok,ex=pcall(test_throw)
|
|
assert(ok==false and type(ex)=="string") -- failed & threw string
|
|
|
|
ok,ex=pcall(test_const_reference_throw)
|
|
assert(ok==false and type(ex)=="string") -- failed & threw string
|
|
|
|
-- const ptrs are thrown as str::string**
|
|
-- not quite right
|
|
ok,ex=pcall(test_const_pointer_throw)
|
|
assert(ok==false and type(ex)=="userdata") -- failed & threw object
|
|
|
|
-- ditto non const ptrs
|
|
ok,ex=pcall(test_pointer_throw)
|
|
assert(ok==false and type(ex)=="userdata") -- failed & threw object
|
|
|
|
-- testing the structure:
|
|
|
|
s=Structure()
|
|
|
|
-- because of the SWIG's 'everything else is a ptr'
|
|
-- member strings are a little unusal
|
|
assert(is_std_string(s.MemberString)) -- std::string*
|
|
assert(type(s.MemberString2)=="string") -- typemaps make this a string
|
|
assert(is_std_string(s.ConstMemberString)) -- std::string*
|
|
|
|
-- set them
|
|
s.MemberString:assign("a") -- as its std::string* must use assign
|
|
s.MemberString2="b" -- typemaps ok
|
|
s.ConstMemberString="c" -- silently ignored
|
|
s.ConstMemberString:assign("c") -- works (oops!!!)
|
|
--print(s.MemberString:data(),s.MemberString2,s.ConstMemberString:data())
|
|
|
|
--check type again
|
|
assert(is_std_string(s.MemberString)) -- std::string*
|
|
assert(type(s.MemberString2)=="string") -- typemaps make this a string
|
|
assert(is_std_string(s.ConstMemberString)) -- std::string*
|
|
|
|
-- for static types: they are really variables,
|
|
-- so we must still use the module name
|
|
|
|
-- check static type
|
|
assert(is_std_string(li_std_string.Structure_StaticMemberString))
|
|
assert(type(li_std_string.Structure_StaticMemberString2)=="string")
|
|
assert(is_std_string(li_std_string.Structure_ConstStaticMemberString))
|
|
|
|
-- try setting
|
|
li_std_string.Structure_StaticMemberString:assign('d')
|
|
li_std_string.Structure_StaticMemberString2='e'
|
|
li_std_string.Structure_ConstStaticMemberString='f' -- silently ignored
|
|
li_std_string.Structure_ConstStaticMemberString:assign('f') -- works (oops!!!)
|
|
--[[print(li_std_string.Structure_StaticMemberString:data(),
|
|
li_std_string.Structure_StaticMemberString2,
|
|
li_std_string.Structure_ConstStaticMemberString:data())]]
|
|
|
|
-- check static type again
|
|
assert(is_std_string(li_std_string.Structure_StaticMemberString))
|
|
assert(type(li_std_string.Structure_StaticMemberString2)=="string")
|
|
assert(is_std_string(li_std_string.Structure_ConstStaticMemberString))
|
|
|