* Bug 16450 fixed: [double, integer] & [double ; integer] implemented
[scilab.git] / scilab / modules / overloading / tests / unit_tests / concatenations_mixed.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2018 - 2020 - Samuel GOUGEON
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // Unit tests for mixed types concatenations
8 //
9 // <-- CLI SHELL MODE -->
10 // <-- NO CHECK REF -->
11
12 // -----------------------------
13 // Booleans and encoded integers
14 // -----------------------------
15 for i = [1 2 4 8 11 12 14 18]  // loop on inttype codes
16     r = [iconvert(-3,i) , %t];
17     r2 = [%t , iconvert(-3,i)];
18     c2 = [%t ; iconvert(-3,i)];
19     c = [iconvert(-3,i) ; %t];
20     assert_checkequal(inttype(r), i);
21     assert_checkequal(inttype(r2), i);
22     assert_checkequal(inttype(c), i);
23     assert_checkequal(inttype(c2), i);
24     assert_checkequal(size(r) , [1 2]);
25     assert_checkequal(size(r2), [1 2]);
26     assert_checkequal(size(c) , [2 1]);
27     assert_checkequal(size(c2), [2 1]);
28 end
29
30 // ----------------------------
31 // Doubles and encoded integers
32 // ----------------------------
33 D = list(2, [3 7], [3 ; 7], [1 2 3 ; 4 5 6], cat(3,[1 2 3;4 5 6],[8 4 9;0 3 1]));
34 for it = [1 2 4 8 11 12 14 18]  // Loop on integer types
35     for d = D
36         assert_checkequal([d, iconvert(d,it)], [d d]);
37         assert_checkequal([iconvert(d,it), d], [d d]);
38         assert_checkequal([d ; iconvert(d,it)], [d ; d]);
39         assert_checkequal([iconvert(d,it) ; d], [d ; d]);
40     end
41 end