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);