File: argcargvtest_runme.sci

package info (click to toggle)
swig 4.4.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 45,980 kB
  • sloc: cpp: 54,284; ansic: 29,022; java: 17,595; python: 12,734; cs: 10,421; ruby: 7,263; yacc: 6,501; makefile: 5,860; javascript: 5,538; sh: 5,422; perl: 4,246; php: 3,733; ml: 2,198; tcl: 2,015; lisp: 1,448; xml: 115
file content (34 lines) | stat: -rw-r--r-- 1,014 bytes parent folder | download | duplicates (2)
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);