scilab/modules/randlib/tests/nonreg_tests/bug_8597.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7 //
   8 // <-- CLI SHELL MODE -->
   9 //
  10 // <-- ENGLISH IMPOSED -->
  11 //
  12 // <-- Non-regression test for bug 8597 -->
  13 //
  14 // <-- Bugzilla URL -->
  15 // http://bugzilla.scilab.org/show_bug.cgi?id=8597
  16 //
  17 // <-- Short Description -->
  18 // Uncontrolled message of grand/clcg4 should be displayed as warning
  19
  20 warning("off");
  21 grand('setgen',"clcg4");
  22 grand('setsd',123456,123456,123456,123456);
  23
  24 warning("on");
  25 grand('setgen',"clcg4");
  26 grand('setsd',123456,123456,123456,123456);