Add argcargv test case to test-suite

This commit is contained in:
William S Fulton 2022-05-15 19:49:59 +01:00
commit 35ec8ca210
3 changed files with 1 additions and 30 deletions

View file

@ -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);