scilab/modules/elementary_functions/tests/nonreg_tests/bug_16454.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2020 - 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 16454 -->
  12 //
  13 // <-- Bugzilla URL -->
  14 // http://bugzilla.scilab.org/16454
  15 //
  16 // <-- Short Description -->
  17 // Sorting a sparse vector including some NaN yielded an error
  18
  19 s = sprand(20,30,0.5);
  20 s([30 100 150 437]) = %nan;
  21 objects = list(s(:)', s(:), s);
  22 for o = objects
  23     for m = ["g" "r" "c" "lr" "lc"]
  24         assert_checktrue(execstr("gsort(o,m,""i"")", "errcatch")==0);
  25     end
  26 end