Bug #14604 fixed: convert emptystr in builtin
[scilab.git] / scilab / modules / string / tests / unit_tests / emptystr.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2007-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9 // <-- NO CHECK REF -->
10
11 //===============================
12 // unit tests emptystr
13 //===============================
14 assert_checkequal(emptystr(), "");
15 //===============================
16 assert_checkequal(emptystr([]), []);
17 //===============================
18 assert_checkequal(size(emptystr("Scilab")), [1 1]);
19 assert_checkequal(emptystr("Scilab"), "");
20 //===============================
21 s = emptystr(["Scilab";"String"]);
22 assert_checkequal(size(s), [2 1]);
23 assert_checktrue(and(s == ""));
24 //===============================
25 M = 5;
26 N = 3;
27 s = emptystr(M,N);
28 assert_checkequal(size(s), [M N]);
29 assert_checktrue(and(s == ""));
30 //===============================
31 M = 200;
32 N = 300;
33 s = emptystr(M,N);
34 assert_checkequal(size(s), [M N]);
35 assert_checktrue(and(s == ""));
36 //===============================
37 assert_checkequal(emptystr(0,0), []);
38 //===============================
39 assert_checkequal(emptystr(0), "");
40 //===============================
41 M = 200;
42 s = emptystr(M);
43 assert_checkequal(size(s), [1 1]);
44 assert_checkequal(s, "");
45 //===============================
46 assert_checkequal(size(emptystr(0,1)), [0 0]);
47 //===============================