a92829979c1086e96ea5acf25dc5e27e8112cc41
[scilab.git] / scilab / modules / functions / tests / unit_tests / execstr.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 execstr('a=1') // sets a=1.
9 if isdef('a')<> %t then bugmes();quit;end
10 if a<> 1 then bugmes();quit;end
11 execstr('1+1');
12 if evstr('1+1')<> 2 then bugmes();quit;end
13 execstr(['if %t then';
14          '  a=1';
15          '  b=a+1';
16          'else'
17          ' b=0'
18          'end'])
19 ierr = execstr('a=zzzzzzz','errcatch');
20 if ierr <> 999 then bugmes();quit;end
21 ierr = execstr('a=1?02','errcatch');
22 if ierr <> 999 then bugmes();quit;end
23 ierr = execstr('a=[1 2 3)','errcatch');
24 if ierr <> 999 then bugmes();quit;end
25 // variable1 does not exist
26 if execstr('variable1;','errcatch')<>0 then disp("Trigger an error"),end
27  Trigger an error
28 // variable2 exists ... no error is triggered by execstr
29 variable2 = [2,3];
30 if execstr('variable2;','errcatch')<>0 then 
31    disp("Trigger an error");
32 else
33    disp("execstr is happy");
34 end
35  execstr is happy