matrix 1x1 declaration [var] as manage like var
[scilab.git] / scilab / modules / string / tests / unit_tests / evstr.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2010 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 //
10 // =============================================================================
11 // unit tests evstr
12 // =============================================================================
13 a = 1;
14 b = 2;
15 Z = ['a','b'];
16 res = evstr(Z);
17 if res(1) <> a then pause, end
18 if res(2) <> b then pause, end
19 // =============================================================================
20 a = 1;
21 b = 2;
22 Z = list(['%(1)','%(1)-%(2)'], ['a+1','b+1']);
23 res = evstr(Z);
24 if or(res <> [2 -1]) then pause, end
25 // =============================================================================
26 if isnan(evstr(%nan)) <> %t then pause, end
27 if isinf(evstr(%inf)) <> %t then pause, end
28 if isnan(evstr('%nan')) <> %t then pause, end
29 if isinf(evstr('%inf')) <> %t then pause, end
30 if isnan(evstr('Nan')) <> %t then pause, end
31 if isinf(evstr('Inf')) <> %t then pause, end
32 if isnan(evstr('NaN')) <> %t then pause, end
33 if isinf(evstr(-%inf)) <> %t then pause, end
34 if isinf(evstr('-%inf')) <> %t then pause, end
35 if isinf(evstr('-Inf')) <> %t then pause, end
36 // =============================================================================
37 Scilab_value = 3;
38 if Scilab_value <> evstr('Scilab_value') then pause, end
39 // =============================================================================
40 clear toto;
41 if execstr("evstr(''toto'')", "errcatch") == 0 then pause, end
42 if execstr("evstr(toto)", "errcatch") == 0 then pause, end
43 // =============================================================================
44 s = rand(3,3,3);
45 if execstr("evstr(s)", "errcatch") <> 0 then pause, end
46 // =============================================================================
47 function foo(), endfunction
48 if execstr("evstr(''foo'')", "errcatch") <> 0 then pause, end
49 // =============================================================================