aboutsummaryrefslogtreecommitdiff
path: root/Examples/test-suite/scilab/argcargvtest_runme.sci
blob: b72f84935a020b0b10ebe00c987169b91ad7c96a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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);