* Bug 8297 fixed: cat() slowness was crippling. Rewritten
[scilab.git] / scilab / modules / elementary_functions / tests / nonreg_tests / bug_8297.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2017 - Samuel GOUGEON
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 // <-- NO CHECK REF -->
10 //
11 // <-- Non-regression test for bug 8297 -->
12 //
13 // <-- Bugzilla URL -->
14 // http://bugzilla.scilab.org/8297
15 //
16 // <-- Short Description -->
17 // After M = rand(m,m);
18 // cat(3, M, M) spent time was exponential vs m (~12 days for m = 500)
19
20 cat(1,1,1);         // To load the function
21 m = rand(250,250);
22 tic();
23 r = cat(3, m, m);
24 tnew = toc();
25 assert_checkequal(r(:,:,2), m);
26
27 path = "SCI/modules/elementary_functions/tests/nonreg_tests/bug_8297_cat_old.sci";
28 exec(path,-1);
29 tic();
30 r = cat_old(3, m, m);
31 told = toc();
32 assert_checktrue(told/tnew > 200);