Revert "* Bugs #9838,9839,10196 fixed: evstr(strarray) 2.3 x faster + more robust...
[scilab.git] / scilab / modules / string / tests / unit_tests / evstr.dia.ref
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 assert_checkequal(res(1), a);
18 assert_checkequal(res(2), b);
19 // =============================================================================
20 a = 1;
21 b = 2;
22 Z = list(["%(1)","%(1)-%(2)"], ["a+1","b+1"]);
23 res = evstr(Z);
24 assert_checkequal(res, [2 -1]);
25 // =============================================================================
26 assert_checktrue(isnan(evstr(%nan)));
27 assert_checktrue(isinf(evstr(%inf)));
28 assert_checktrue(isnan(evstr("%nan")));
29 assert_checktrue(isinf(evstr("%inf")));
30 assert_checktrue(isnan(evstr("Nan")));
31 assert_checktrue(isinf(evstr("Inf")));
32 assert_checktrue(isnan(evstr("NaN")));
33 assert_checktrue(isinf(evstr(-%inf)));
34 assert_checktrue(isinf(evstr("-%inf")));
35 assert_checktrue(isinf(evstr("-Inf")));
36 // =============================================================================
37 Scilab_value = 3;
38 assert_checkequal(Scilab_value, evstr("Scilab_value"));
39 // =============================================================================
40 clear toto;
41 assert_checkfalse(execstr("evstr(''toto'')", "errcatch") == 0);
42 assert_checkfalse(execstr("evstr(toto)", "errcatch") == 0);
43 // =============================================================================
44 s = rand(3,3,3);
45 assert_checkequal(execstr("evstr(s)", "errcatch"), 0);
46 // =============================================================================
47 function foo(), endfunction
48 assert_checkequal(execstr("evstr(''foo'')", "errcatch"), 0);
49 // =============================================================================
50 assert_checkequal(evstr(""), []);
51 // =============================================================================