jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

scilab: new generic test li_std_sequence_container_typemaps (for STL vector, list, ...)

Browse source
This commit is contained in:
Simon Marchetto 2014-02-19 16:56:36 +01:00
commit a1a055f0f0
3 changed files with 220 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Examples/test-suite/scilab/Makefile.in
View file

@ -17,6 +17,7 @@ C_TEST_CASES += \
CPP_STD_TEST_CASES += \
primitive_types \
inout \
li_std_sequence_container_typemaps \
TEST_DIR = $*.dir
RUNME_SCRIPT = $(srcdir)/$(SCRIPTPREFIX)$*$(SCRIPTSUFFIX)

101
Examples/test-suite/scilab/li_std_sequence_container_typemaps_runme.sci Normal file
View file

@ -0,0 +1,101 @@
// test STL sequence containers typemaps
exec("swigtest.start", -1);
// test sequence containers of pointers
// -container: type of container: "vector", "list"...
// -value, count: value to store count times in container
// -expected_accumulate_value: expected value of an accumulation function
// computed on the container
function testSequenceContainerPtr(container, count, value, expected_accumulate_value)
// test sequence container returned from fonction (expected a list)
classAPtr = new_ClassA(value);
cmd = msprintf("l = ret_ClassAPtr_%s(count, classAPtr);", container);
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then swigtesterror(); end
if ~exists('l') | (size(l) <> count) | (ClassA_a_get(l(1)) <> value) then swigtesterror(); end
l2 = l;
// test sequence container passed as value of function
cmd = msprintf("classAPtr = val_ClassAPtr_%s(l);", container);
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then swigtesterror(); end
if ClassA_a_get(classAPtr) <> expected_accumulate_value then swigtesterror(); end
// recreate a container
classAPtr = new_ClassA(value);
cmd = msprintf("l = ret_ClassAPtr_%s(count, classAPtr);", container);
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then swigtesterror(); end
if ~exists('l') | (size(l) <> count) | (ClassA_a_get(l(1)) <> value) then swigtesterror(); end
// test sequence container passed as refererence of function
cmd = msprintf("classAPtr = ref_ClassAPtr_%s(l);", container);
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then swigtesterror(); end
if ClassA_a_get(classAPtr) <> expected_accumulate_value then swigtesterror(); end
endfunction
// test sequence containers of primitive type
// -container: type of container: "vector", "list"...
// -value_type: type of element stored in container: "int", ...
// -value, count: value to store count times in container
// -expected_accumulate_value: expected value of an accumulation function
// computed on the container
function testSequenceContainer(container, value_type, value, count, expected_accumulate_value)
// test sequence container returned from fonction (expect a row matrix)
if value_type = "string"
cmd = msprintf("c = ret_%s_%s(count, ''%s'');", value_type, container, value);
elseif value_type = "bool" then
cmd = msprintf("c = ret_%s_%s(count, %s);", value_type, container, "%"+string(value));
else
cmd = msprintf("c = ret_%s_%s(count, %d);", value_type, container, value);
end
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then swigtesterror(); end
if ~isdef('c') | c <> repmat(value, 1, count) then swigtesterror(); end
// test sequence container passed as value of function
cmd = msprintf("s = val_%s_%s(c);", value_type, container);
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then swigtesterror(); end
if s <> expected_accumulate_value then swigtesterror(); end
// test sequence container passed as matrix as value of function
//m = repmat(value, 1, count);
//cmd = msprintf("s = val_%s_%s(m);", value_type, container);
//ierr = execstr(cmd, "errcatch");
//if ierr <> 0 then swigtesterror(); end
//if s <> expected_accumulate_value then swigtesterror(); end
// test sequence container passed as reference of function
cmd = msprintf("s = ref_%s_%s(c);", value_type, container);
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then swigtesterror(); end
if s <> expected_accumulate_value then swigtesterror(); end
// test sequence container passed as matrix as reference of function
//m = repmat(value, 1, count);
//cmd = msprintf("s = val_%s_%s(m);", value_type, container);
//ierr = execstr(cmd, "errcatch");
//if ierr <> 0 then swigtesterror(); end
//if s <> expected_accumulate_value then swigtesterror(); end
endfunction
// test vector
testSequenceContainer("vector", "int", 2, 4, 10);
testSequenceContainer("vector", "double", 2., 3., 8.);
testSequenceContainer("vector", "string", "a", 4, "aaaaa");
testSequenceContainer("vector", "bool", %T, 2, %T);
testSequenceContainerPtr("vector", 1, 3, 6.0);
// test list
testSequenceContainer("list", "int", 2, 3, 8);
testSequenceContainer("list", "double", 2., 4., 10.);
testSequenceContainer("list", "string", "a", 4, "aaaaa");
testSequenceContainer("list", "bool", %T, 2, %T);
testSequenceContainerPtr("list", 1, 3, 6.0);
exec("swigtest.quit", -1);