* bug #14801 fixed: [cells1 cells2] puzzled cells components
[scilab.git] / scilab / modules / ast / tests / nonreg_tests / bug_14801.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2016 - Samuel GOUGEON
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- NO CHECK REF -->
9 //
10 // <-- Non-regression test for bug 14801 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/14801
14 //
15 // <-- Short Description -->
16 // The horizontal concatenation of cells arrays misworked
17
18 a = {[1;-0.5],[]; 0.3, 1};
19 b = {"test"; %z};
20 r = [a b];
21 assert_checkequal(r{1,2}, a{1,2});
22 assert_checkequal(r{2,1}, a{2,1});
23 assert_checkequal(r{1,3}, b{1,1});
24
25 A = cat(3,a,a);
26 B = cat(3,b,b);
27 R = [A B];
28 assert_checkequal(R{1,2,2}, a{1,2});
29 assert_checkequal(R{2,1,2}, a{2,1});
30 assert_checkequal(R{1,3,2}, b{1,1});