1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2007-2008 - INRIA
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- JVM NOT MANDATORY -->
//===============================
// unit tests part
//===============================
EMPTY_STR = '';
BLANK = ' ';
//===============================
s = part(EMPTY_STR ,[]);
if (s <> EMPTY_STR ) then bugmes();quit;end
//===============================
// compatibility 4.x
N = 50;
s = part(EMPTY_STR ,N);
if (s <> BLANK) then bugmes();quit;end
//===============================
s = part(['a','abc','abcd'],[1,1,2]);
if (s <> ['aa','aab','aab']) then bugmes();quit;end
//===============================
s1 = part(['a','abc','abcd'],[2,4,6]);
s2 = part(['a','abc','abcd'],[2,4,5]);
if (s1 <> s2) then bugmes();quit;end
if (s1 <> [' ','b','bd']) then bugmes();quit;end
//===============================
N = 20;
s = part(" ",ones(1,N));
if (blanks(N) <> s) then bugmes();quit;end
//===============================
if part('abc',1)<>'a' then bugmes();quit;end
if part('abc',[1 1])<>'aa' then bugmes();quit;end
if part('abc',[1;1])<>'aa' then bugmes();quit;end
if part('abc',[])<>emptystr() then bugmes();quit;end
if part('abc',5)<>BLANK then bugmes();quit;end
if part('abc',5:6)<>' ' then bugmes();quit;end
if or(part(['abc';'x'],1)<>['a';'x']) then bugmes();quit;end
if or(part(['abc';'x'],[1,1])<>['aa';'xx']) then bugmes();quit;end
if or(part(['abc';'x'],[1,2])<>['ab';'x ']) then bugmes();quit;end
if or(part(['abc';'x'],[1;1])<>['aa';'xx']) then bugmes();quit;end
if or(part(['abc';'x'],[1;2])<>['ab';'x ']) then bugmes();quit;end
//===============================
|
