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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
argcargvtest
largs={'hi','hola','hello'};
if (mainc(largs) != 3)
error("bad main typemap");
endif
targs={'hi','hola'};
if (mainv(targs,1) != 'hola')
error("bad main typemap");
endif
targs={'hi', 'hola'};
if (mainv(targs,0) != 'hi')
error("bad main typemap");
endif
if (mainv(targs,1) != 'hola')
error("bad main typemap");
endif
if (mainv(targs,2) != '<<NULL>>')
error("bad main typemap");
endif
try
error_flag = 0;
mainv('hello',1);
error_flag = 1;
catch
end_try_catch
if (error_flag)
error("bad main typemap")
endif
initializeApp(largs);
# Check that an empty array works.
empty_args={};
if (mainc(empty_args) != 0)
error("bad main typemap");
endif
if (mainv(empty_args,0) != '<<NULL>>')
error("bad main typemap");
endif
# Check that empty strings are handled.
empty_string={"hello", blanks(0), "world"};
if (mainc(empty_string) != 3)
error("bad main typemap");
endif
if (mainv(empty_string, 0) != "hello")
error("bad main typemap");
endif
if (mainv(empty_string, 1) != "")
error("bad main typemap");
endif
if (mainv(empty_string, 2) != "world")
error("bad main typemap");
endif
if (mainv(empty_string, 3) != "<<NULL>>")
error("bad main typemap");
endif
|
