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
46
47
48
49
50
|
// =============================================================================
// 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.
// =============================================================================
// <-- CLI SHELL MODE -->
//===============================
// unit tests strcat
//===============================
if strcat(['abc','abd','aa','bxe'])<>'abcabdaabxe' then bugmes();quit;end
//===============================
if strcat(['abc','abd';'aa','bxe'])<>'abcaaabdbxe' then bugmes();quit;end
//===============================
if strcat(['abc';'abd';'aa';'bxe'])<>'abcabdaabxe' then bugmes();quit;end
//===============================
if strcat(['abc','abd','aa','bxe'],',')<>'abc,abd,aa,bxe' then bugmes();quit;end
//===============================
if strcat('abc')<>'abc' then bugmes();quit;end
//===============================
if strcat('abc','sd')<>'abc' then bugmes();quit;end
//===============================
if strcat('') <> '' then bugmes();quit;end
//===============================
if strcat(['','']) <> '' then bugmes();quit;end
//===============================
if strcat('','')<>'' then bugmes();quit;end
//===============================
if strcat([])<>'' then bugmes();quit;end
//===============================
if strcat([],'')<>'' then bugmes();quit;end
//===============================
if execstr('strcat([],3)','errcatch') <> 246 then bugmes();quit;end
//===============================
if strcat([],'3') <> '' then bugmes();quit;end
//===============================
if strcat(['abc','abd','aa','bxe']) <> 'abc'+'abd'+'aa'+'bxe' then bugmes();quit;end
//===============================
if strcat(['abc','abd','aa','bxe'],'')<>'abcabdaabxe' then bugmes();quit;end
//===============================
fd = mopen(SCI+'/modules/string/tests/unit_tests/text.txt','r');
txt = mgetl( fd );
mclose( fd );
NEW_TXT_A = strcat(txt);
NEW_TXT = strcat(NEW_TXT_A,'END OF FILE');
if ( length(NEW_TXT) <>length(NEW_TXT_A) ) then bugmes();quit;end
//===============================
if strcat(['abc','abd','aa','bxe'],'| , |')<>'abc| , |abd| , |aa| , |bxe' then bugmes();quit;end
if length(strcat(['abc','abd','aa','bxe'],'| , |')) <> 26 then bugmes();quit;end
//===============================
|
