mirror of https://github.com/swig/swig
35 lines
1014 B
Scilab
35 lines
1014 B
Scilab
exec("swigtest.start", -1);
|
|
|
|
largs = ["hi" "hola" "hello"];
|
|
checkequal(mainc(largs), 3, "calling mainc");
|
|
|
|
targs = ["hi" "hola"]
|
|
checkequal(mainv(targs, 0), "hi", "calling mainv");
|
|
checkequal(mainv(targs, 1), "hola", "calling mainv");
|
|
checkequal(mainv(targs, 2), "<<NULL>>", "calling mainv");
|
|
|
|
checkequal(mainv("hi", 0), "hi", "calling mainv with a single string");
|
|
|
|
try
|
|
mainv(1, 1);
|
|
swigtesterror();
|
|
catch
|
|
end
|
|
|
|
initializeApp(largs);
|
|
|
|
// Check that an empty array works.
|
|
empty_args = [];
|
|
checkequal(mainc(empty_args), 0, "calling mainc");
|
|
checkequal(mainv(empty_args, 0), "<<NULL>>", "calling mainv");
|
|
|
|
// Check that empty strings are handled.
|
|
empty_string = ["hello", "", "world"];
|
|
checkequal(mainc(empty_string), 3, "calling mainc");
|
|
checkequal(mainv(empty_string, 0), "hello", "calling mainv");
|
|
checkequal(mainv(empty_string, 1), "", "calling mainv");
|
|
checkequal(mainv(empty_string, 2), "world", "calling mainv");
|
|
checkequal(mainv(empty_string, 3), "<<NULL>>", "calling mainv");
|
|
|
|
exec("swigtest.quit", -1);
|