[ast] fix polynom display after 0000af49
[scilab.git] / scilab / modules / string / tests / unit_tests / blanks.dia.ref
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 // <-- CLI SHELL MODE -->
8 //==============================================================================
9 // blank unit tests
10 //==============================================================================
11 disp(["xxx" blanks(20) "yyy"]);
12 !xxx                        yyy  !
13 // Test 1
14 //LEN_MAX = 20000000; too slow
15 LEN_MAX = 2000;
16 r = blanks(LEN_MAX);
17 l = length(r);
18 if ( l <> LEN_MAX) then bugmes();quit;end
19 // Test 2
20 // check first and last characters
21 FIRST_CHAR = part(r,1);
22 LAST_CHAR = part(r,LEN_MAX);
23 if (FIRST_CHAR <> " ") then bugmes();quit;end
24 if (LAST_CHAR <> " ") then bugmes();quit;end
25 // Test 3
26 A = floor(abs(2^8  * rand()));
27 B = floor(abs(2^16 * rand()));
28 C = floor(abs(2^16 * rand()));
29 D = floor(abs(2^7  * rand()));
30 E = floor(abs(2^15 * rand()));
31 F = floor(abs(2^15 * rand()));
32 if blanks(A) <> blanks(uint8(A))  then bugmes();quit;end
33 if blanks(B) <> blanks(uint16(B)) then bugmes();quit;end
34 if blanks(C) <> blanks(uint32(C)) then bugmes();quit;end
35 if blanks(D) <> blanks(int8(D))  then bugmes();quit;end
36 if blanks(E) <> blanks(int16(E)) then bugmes();quit;end
37 if blanks(F) <> blanks(int32(F)) then bugmes();quit;end