// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2009 - DIGITEO - Allan CORNET
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================
execstr('a=1') // sets a=1.
if isdef('a')<> %t then bugmes();quit;end
if a<> 1 then bugmes();quit;end
execstr('1+1');
if evstr('1+1')<> 2 then bugmes();quit;end
execstr(['if %t then';
         '  a=1';
         '  b=a+1';
         'else'
         ' b=0'
         'end'])
ierr = execstr('a=zzzzzzz','errcatch');
if ierr <> 4 then bugmes();quit;end 
ierr = execstr('a=1?02','errcatch');
if ierr <> 276 then bugmes();quit;end
ierr = execstr('a=[1 2 3)','errcatch');
if ierr <> 2 then bugmes();quit;end
// variable1 does not exist
if execstr('variable1;','errcatch')<>0 then disp("Trigger an error"),end
 
 Trigger an error   
// variable2 exists ... no error is triggered by execstr
variable2 = [2,3]; 
if execstr('variable2;','errcatch')<>0 then 
   disp("Trigger an error");
else
   disp("execstr is happy");
 
 execstr is happy   
end