Add argcargv test case to test-suite
This commit is contained in:
parent
d60724b636
commit
35ec8ca210
3 changed files with 1 additions and 30 deletions
|
|
@ -1,29 +0,0 @@
|
|||
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,1) != 'hola')
|
||||
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);
|
||||
Loading…
Add table
Add a link
Reference in a new issue