* Bug #10816 fixed - Allow the usage of the '$' keyword in the part function.
[scilab.git] / scilab / modules / string / tests / unit_tests / part.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2007-2008 - INRIA
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 //===============================
9 // unit tests part
10 //===============================
11 EMPTY_STR = '';
12 BLANK = ' ';
13 //===============================
14 s = part(EMPTY_STR ,[]);
15 if (s <> EMPTY_STR ) then bugmes();quit;end
16 //===============================
17 // compatibility 4.x
18 N = 50;
19 s = part(EMPTY_STR ,N);
20 if (s <> BLANK) then bugmes();quit;end
21 //===============================
22 s = part(['a','abc','abcd'],[1,1,2]);
23 if (s <> ['aa','aab','aab']) then bugmes();quit;end
24 //===============================
25 s1 = part(['a','abc','abcd'],[2,4,6]);
26 s2 = part(['a','abc','abcd'],[2,4,5]);
27 if (s1 <> s2)  then bugmes();quit;end
28 if (s1 <> ['   ','b','bd']) then bugmes();quit;end
29 //===============================
30 N = 20;
31 s = part(" ",ones(1,N));
32 if (blanks(N) <> s) then bugmes();quit;end
33 //===============================
34 if part('abc',1)<>'a' then bugmes();quit;end
35 if part('abc',[1 1])<>'aa' then bugmes();quit;end
36 if part('abc',[1;1])<>'aa' then bugmes();quit;end
37 if part('abc',[])<>emptystr() then bugmes();quit;end
38 if part('abc',5)<>BLANK then bugmes();quit;end
39 if part('abc',5:6)<>'  ' then bugmes();quit;end
40 if or(part(['abc';'x'],1)<>['a';'x']) then bugmes();quit;end
41 if or(part(['abc';'x'],[1,1])<>['aa';'xx']) then bugmes();quit;end
42 if or(part(['abc';'x'],[1,2])<>['ab';'x ']) then bugmes();quit;end
43 if or(part(['abc';'x'],[1;1])<>['aa';'xx']) then bugmes();quit;end
44 if or(part(['abc';'x'],[1;2])<>['ab';'x ']) then bugmes();quit;end
45 //===============================
46 a=part(['a','abc','abcd'],[1]);
47 assert_checkequal(a,['a','a','a']);
48 a=part(['a','abc','abcd'],[1,1]);
49 assert_checkequal(a,['aa','aa','aa']);
50 a=part(['a','abc','abcd'],[1,1,2]);
51 assert_checkequal(a,['aa ','aab','aab']);
52 N = 10; a=part('-',ones(1:N));
53 assert_checkequal(a,"----------");
54 N = 6; pat = '- ';
55 a=part(pat, ones(1:N).*.(1:length(pat)));
56 assert_checkequal(a,"- - - - - - ");
57 a=part(['a string'  'another longer one'], $-2:$ );
58 assert_checkequal(a,["ing","one"]);
59 a=part('Hello world', $:-1:1);
60 assert_checkequal(a,"dlrow olleH");
61 a=part('Hello world', [ $ 5:6 ]);
62 assert_checkequal(a,"do ");