* Bug 16102 fixed: lstcat() with 1:$, sin, sind.. & might be slow
[scilab.git] / scilab / modules / data_structures / tests / unit_tests / lstcat.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) ????-2008 - INRIA
4 // Copyright (C) 2019 - Samuel GOUGEON
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 // <-- CLI SHELL MODE -->
9 // <-- NO CHECK REF -->
10
11 assert_checkequal(lstcat(list(1,2),list(4)), list(1,2,4));
12 assert_checkequal(lstcat(list(1,2,4),list()), list(1,2,4));
13 assert_checkequal(lstcat(list(1),list(2,4)), list(1,2,4));
14 assert_checkequal(lstcat(list(),list(1,2,4)), list(1,2,4));
15
16 assert_checkequal(lstcat(list(1,2), 4), list(1,2,4));
17 assert_checkequal(lstcat(1, list(2,4)), list(1,2,4));
18
19 assert_checkequal(lstcat(list(1), list(2), list(4)), list(1,2,4));
20 assert_checkequal(lstcat(list(1,2),list(),4), list(1,2,4));
21
22 L = lstcat(list([1 2],['my string';'matrix']), list('foo',%s));
23 assert_checkequal(L, list([1 2],['my string';'matrix'], 'foo', %s));
24
25 sp = sprand(100,100,0.01);
26 m = rand(100,100);
27 L1 = list(%z, m , sp, sp<>0, "abc", list(%f,,"defg"));
28 L2 = list(sin, 1:$, , list(cosd, , %pi));
29      // include gdf() after fixing http://bugzilla.scilab.org/16103
30 Lres = list(%z, m , sp, sp<>0, "abc", list(%f,,"defg"), ..
31             2:$, sind, sin, 1:$, , list(cosd, , %pi), cos);
32 assert_checkequal(lstcat(L1, 2:$, sind, L2, cos), Lres);