mirror of https://github.com/swig/swig.git
61 lines
973 B
Lua
61 lines
973 B
Lua
require_to_globs("li_std_vector")
|
|
|
|
local iv = IntVector(4)
|
|
for i=0,3 do
|
|
iv[i] = i
|
|
end
|
|
|
|
for i=0,3 do assert(iv[i]==i) end
|
|
|
|
local x = average(iv)
|
|
|
|
assert(cmp_flt(x,1.5))
|
|
|
|
local rv = RealVector()
|
|
rv:push_back(10)
|
|
rv:push_back(10.5)
|
|
rv:push_back(11)
|
|
rv:push_back(11.5)
|
|
|
|
local a=half(rv)
|
|
for i=0,rv:size()-1 do
|
|
assert(cmp_flt(a[i],rv[i]/2))
|
|
end
|
|
|
|
local dv = DoubleVector(10)
|
|
for i=0,9 do dv[i] = i/2.0 end
|
|
|
|
halve_in_place(dv)
|
|
|
|
for i=0,9 do
|
|
assert(cmp_flt(dv[i],i/4))
|
|
end
|
|
|
|
sv=StructVector(4)
|
|
|
|
for i=0,3 do
|
|
sv[i]=Struct(i)
|
|
end
|
|
|
|
for i=0,3 do
|
|
assert(swig_type(sv[i]) =='Struct *' and sv[i].num==i)
|
|
end
|
|
|
|
-- range checking
|
|
local idx=0
|
|
function test_set() iv[idx]=0 end
|
|
function test_get() iv[idx]=0 end
|
|
|
|
idx=0 --ok
|
|
assert(pcall(test_get))
|
|
assert(pcall(test_set))
|
|
idx=-1 --should error
|
|
assert(not pcall(test_get))
|
|
assert(not pcall(test_set))
|
|
idx=3 --ok
|
|
assert(pcall(test_get))
|
|
assert(pcall(test_set))
|
|
idx=4 --should error
|
|
assert(not pcall(test_get))
|
|
assert(not pcall(test_set))
|