blob: 4ac290203075e3790fc9851239b887febc2fa4f9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
// =============================================================================
// 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
|
