scilab/modules/cacsd/tests/nonreg_tests/bug_16160.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2019 - Stéphane MOTTELET
   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 16160 -->
  12 //
  13 // <-- Bugzilla URL -->
  14 // http://bugzilla.scilab.org/16160
  15 //
  16 // <-- Short Description -->
  17 // ppol changes values of third input variable
  18
  19
  20 A=rand(6,6);
  21 B=rand(6,1);
  22 p=[1+%i*0.5 1-%i*0.5 3 -1+%i*0.5 -1-%i*0.5 5];
  23 K=ppol(A,B,p);
  24 assert_checkequal(p,[1+%i*0.5 1-%i*0.5 3 -1+%i*0.5 -1-%i*0.5 5]);