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

scilab: test *matrix, size) array typemaps

Browse source
This commit is contained in:
Simon Marchetto 2014-03-26 14:39:34 +01:00
commit a4979d8d7e
3 changed files with 149 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

60
Examples/test-suite/scilab/scilab_li_matrix_runme.sci
View file

@ -3,62 +3,66 @@
exec("swigtest.start", -1);
// test matrix passed as output argument from fonction
function test_out_matrix(value_type, expected_out_matrix)
func_name = msprintf("out_%s_matrix_func", value_type);
function test_out_matrix(func, value_type, expected_out_matrix)
func_name = msprintf("out_%s_%s", value_type, func);
cmd = msprintf("out_matrix = %s();", func_name);
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then
swigtesterror(msprintf("Error %d in %s", ierr, func_name));
end
if ~isdef('out_matrix') | ~isequal(out_matrix, expected_out_matrix) then
swigtesterror(msprintf("Wrong value returned from %s()", func_name));
end
checkequal(out_matrix, expected_out_matrix, func_name);
endfunction
// test matrix passed as input argument of fonction
function test_in_matrix(value_type, in_matrix, expected_in_value)
func_name = msprintf("in_%s_matrix_func", value_type);
function test_in_matrix(func, value_type, in_matrix, expected_in_value)
func_name = msprintf("in_%s_%s", value_type, func);
cmd = msprintf("in_value = %s(in_matrix);", func_name);
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then
swigtesterror(msprintf("Error %d in %s", ierr, func_name));
end
if ~isdef('in_value') | ~isequal(in_value, expected_in_value) then
swigtesterror(msprintf("Wrong value returned from %s()", func_name));
end
checkequal(in_value, expected_in_value, func_name);
endfunction
// test matrixes passed as input and output arguments of fonction
function test_inout_matrix(value_type, inout_matrix, expected_inout_matrix)
func_name = msprintf("inout_%s_matrix_func", value_type);
function test_inout_matrix(func, value_type, inout_matrix, expected_inout_matrix)
func_name = msprintf("inout_%s_%s", value_type, func);
cmd = msprintf("inout_matrix = %s(inout_matrix);", func_name);
ierr = execstr(cmd, "errcatch");
if ierr <> 0 then
swigtesterror(msprintf("Error %d in %s", ierr, func_name));
end
if ~isdef('inout_matrix') | ~isequal(inout_matrix, expected_inout_matrix) then
swigtesterror(msprintf("Wrong value returned from %s()", func_name));
end
checkequal(inout_matrix, expected_inout_matrix, func_name);
endfunction
function test_matrix_typemaps(value_type, matrix, expected_out_matrix, expected_in_value, expected_inout_matrix)
test_out_matrix(value_type, expected_out_matrix);
test_in_matrix(value_type, matrix, expected_in_value);
test_inout_matrix(value_type, matrix, expected_inout_matrix);
function test_matrix_typemaps(value_type, ..
expected_out_matrix_dims, expected_out_matrix_size, ..
expected_in_value, ..
expected_inout_matrix_dims, expected_inout_matrix_size)
test_out_matrix("matrix_dims", value_type, expected_out_matrix_dims);
test_out_matrix("matrix_size", value_type, expected_out_matrix_size);
matrix_dims = expected_out_matrix_dims;
matrix_size = expected_out_matrix_size;
test_in_matrix("matrix_dims", value_type, matrix_dims, expected_in_value);
test_in_matrix("matrix_size", value_type, matrix_size, expected_in_value);
test_inout_matrix("matrix_dims", value_type, matrix_dims, expected_inout_matrix_dims);
test_inout_matrix("matrix_size", value_type, matrix_size, expected_inout_matrix_size);
endfunction
m = [0. 3.; 1. 4.; 2. 5.];
test_matrix_typemaps("int", m, m, sum(m), m .* m);
test_matrix_typemaps("int", int32(m), m, sum(m), m .* m);
m = [0 3; 1 4; 2 5];
v = [0 1 2 3 4 5];
test_matrix_typemaps("int", m, v, sum(m), m .* m, v .* v);
test_matrix_typemaps("double", m, v, sum(m), m .* m, v .* v);
test_matrix_typemaps("double", m, m, sum(m), m .* m);
m = ["A" "D"; "B" "E"; "C" "F"];
v = ["A" "B" "C" "D" "E" "F"];
test_matrix_typemaps("charptr", m, v, strcat(m), m + m, v + v);
m = ["A" "D"; "B" "E"; "C" "F"]
test_matrix_typemaps("charptr", m, m, strcat(m), m + m);
m = [%T, %F; %F, %T; %T, %F];
test_matrix_typemaps("bool", m, m, %T, ~m);
m = [%T %F; %F %T; %T %F];
v = [%T %F %T %F %T %F];
test_matrix_typemaps("bool", m, v, %T, ~m, ~v);
exec("swigtest.quit", -1);