string: pass tests
[scilab.git] / scilab / modules / string / tests / unit_tests / blanks.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 // blank unit tests
13 //==============================================================================
14
15 x = (["xxx" blanks(20) "yyy"]);
16 assert_checkequal(x, ["xxx" "                    " "yyy"]);
17
18 // Test 1
19 //LEN_MAX = 20000000;
20 LEN_MAX = 20000000;
21 r = blanks(LEN_MAX);
22 l = length(r);
23 assert_checkequal(l, LEN_MAX);
24
25 // Test 2
26 // check first and last characters
27
28 FIRST_CHAR = part(r,1);
29 LAST_CHAR = part(r,LEN_MAX);
30 assert_checkequal(FIRST_CHAR, " ");
31 assert_checkequal(LAST_CHAR, " ");
32
33 // Test 3
34
35 A = floor(abs(2^8  * rand()));
36 B = floor(abs(2^16 * rand()));
37 C = floor(abs(2^16 * rand()));
38
39 D = floor(abs(2^7  * rand()));
40 E = floor(abs(2^15 * rand()));
41 F = floor(abs(2^15 * rand()));
42
43 assert_checkequal(blanks(A), blanks(uint8(A)));
44 assert_checkequal(blanks(B), blanks(uint16(B)));
45 assert_checkequal(blanks(C), blanks(uint32(C)));
46
47 assert_checkequal(blanks(D), blanks(int8(D)));
48 assert_checkequal(blanks(E), blanks(int16(E)));
49 assert_checkequal(blanks(F), blanks(int32(F)));