scilab/modules/elementary_functions/tests/nonreg_tests/bug_13709.dia.ref

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2015 - Scilab Enterprises - Adeline CARNIS
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7 // <-- CLI SHELL MODE -->
   8 // <-- Non-regression test for bug 13709 -->
   9 //
  10 // <-- Bugzilla URL -->
  11 // http://bugzilla.scilab.org/show_bug.cgi?id=13709
  12 //
  13 // <-- Short Description -->
  14 //    The position of the first of each distinct element was sometimes wrong.
  15 // =============================================================================
  16 ind = [2 1 1;
  17 2 1 1;
  18 4 1 1;
  19 4 2 2;
  20 4 2 2;
  21 5 3 3;
  22 5 3 3;
  23 5 4 4];
  24 [Uind, kindex] = unique(ind, "r");
  25 expUind = [2 1 1;
  26 4 1 1;
  27 4 2 2;
  28 5 3 3;
  29 5 4 4];
  30 expk = [1 3 4 6 8]';
  31 assert_checkequal(Uind, expUind);
  32 assert_checkequal(kindex, expk);