6f1d3188c270a3fd76c1ce2ee55a9407f74a273c
[scilab.git] / scilab / modules / string / tests / nonreg_tests / bug_9838.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - INRIA - Serge Steer
4 // Copyright (C) 2017 - Samuel GOUGEON
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 // <-- CLI SHELL MODE -->
9 // <-- NO CHECK REF -->
10 //
11 // <-- Non-regression test for bug 9838 -->
12 //
13 // <-- Bugzilla URL -->
14 // http://bugzilla.scilab.org/9838
15 //
16 // <-- Short Description -->
17 // evstr() froze on text components having some comments but no result
18 //
19 ni = "// no instruction";
20 assert_checkequal(evstr(ni),[]);
21 assert_checkequal(evstr([ni ni]),[]);
22 assert_checkequal(evstr([ni ni]'),[]);
23 t = [ni, " "+ni, "[] "+ni, "[] "+ni, " [] "+ni];
24 assert_checkequal(evstr(t), []);
25 t = [ t "3"];
26 assert_checkequal(evstr(t),  [%nan %nan %nan %nan %nan 3]);
27 assert_checkequal(evstr(t'), [%nan %nan %nan %nan %nan 3]');
28 t($) = "%t";
29 assert_checkequal(evstr(t),[%f %f %f %f %f %t]);
30 t($) = """AbCd""";
31 assert_checkequal(evstr(t),["" "" "" "" "" "AbCd"]);
32 t($) = "int8(37)";
33 assert_checkequal(evstr(t),int8([0 0 0 0 0 37]));
34