getf SCI/util/testexamples.sci
 
reinit_for_test()
 
%U=mopen('SCI/tests/automatic_tests/functions_data.ref','rb');
 
//inline definition (see function)
 
function [x,y]=myfct(a,b)
  x=a+b
  y=a-b
endfunction
 
if load_ref('%ans') then   bugmes();quit;end,
 
 
 
[x,y] = myfct(3, 2);
 
if load_ref('y') then   bugmes();quit;end,
 
if load_ref('x') then   bugmes();quit;end,
 
 
 
//inline definition (see deff)
 
%ans = deff('[x,y]=myfct(a,b)', ['x=a+b';
  'y=a-b']);
 
if load_ref('%ans') then   bugmes();quit;end,
 
 
// definition in an ascii file (see exec)
 
Warning :redefining function: asinh                   
 
 
 
// definition in an ascii file (see getf)
 
getf('SCI/macros/elem/asinh.sci');
Warning :redefining function: asinh                   
 
 
 
xdel_run(winsid());
 
 
mclose(%U);