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) 2009 - DIGITEO - Allan CORNET
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- JVM NOT MANDATORY -->
a = 'a';
b = ['a';'b'];
c = a + b;
ref = ['aa';'ab'];
if or(c <> ref) then bugmes();quit;end
a = 'a';
b = ['a','b'];
c = a + b;
ref = ['aa','ab'];
if or(c <> ref) then bugmes();quit;end
a = ['a';'b'];
b = 'a';
c = a + b;
ref = ['aa';'ba'];
if or(c <> ref) then bugmes();quit;end
a = ['a','b'];
b = 'a';
c = a + b;
ref = ['aa','ba'];
if or(c <> ref) then bugmes();quit;end
a = 'a';
b = 'b';
c = a + b;
ref = 'ab';
if or(c <> ref) then bugmes();quit;end
a = ['a','b'];
b = ['c','d'];
c = a + b;
ref = ['ac','bd'];
if or(c <> ref) then bugmes();quit;end
a = ['a';'b'];
b = ['c';'d'];
c = a + b;
ref = ['ac';'bd'];
if or(c <> ref) then bugmes();quit;end
a = ['a';'b';'e'];
b = ['c';'d'];
ierr = execstr('c = a + b;','errcatch');
if ierr <> 8 then bugmes();quit;end
a = ['a';'b'];
b = ['c';'d';'e'];
ierr = execstr('c = a + b;','errcatch');
if ierr <> 8 then bugmes();quit;end
|
