* Bug #8597 fixed - Uncontrolled message of grand/clcg4 should be displayed as warning. 49/11349/2
Charlotte HECQUET [Fri, 19 Apr 2013 14:06:00 +0000 (16:06 +0200)]
Change-Id: I083a550bc2b2eeb1676a32823fecb1ffc0d444cf

scilab/CHANGES_5.5.X
scilab/modules/randlib/src/c/clcg4.c
scilab/modules/randlib/tests/nonreg_tests/bug_8597.dia.ref [new file with mode: 0644]
scilab/modules/randlib/tests/nonreg_tests/bug_8597.tst [new file with mode: 0644]

index 6eb3d9f..72c54cb 100644 (file)
@@ -85,11 +85,13 @@ Bug fixes
 
 * Bug #7927 fixed - Output "flag" in qmr function was not well documented.
 
+* Bug #8162 fixed - Area of stability of plzr was wrong for continuous systems (+unit test added).
+
 * Bug #8319 fixed - dbphi(hypermat) and phasemag(hypermat) returned a matrix instead of a hypermatrix.
 
-* Bug #8607 fixed - Some error messages in modules/overloading/macros were not standard and not localized.
+* Bug #8597 fixed - Uncontrolled message of grand/clcg4 should be displayed as warning.
 
-* Bug #8162 fixed - Area of stability of plzr was wrong for continuous systems (+unit test added).
+* Bug #8607 fixed - Some error messages in modules/overloading/macros were not standard and not localized.
 
 * Bug #8667 fixed - Handling of %nan in functions min,max,median is not correctly documented.
 
index edd3222..f576078 100644 (file)
@@ -61,6 +61,7 @@
 #include "sciprint.h"
 #include "others_generators.h"
 #include "localization.h"
+#include "warningmode.h"
 
 /***********************************************************************/
 /* Private part.                                                       */
@@ -182,7 +183,10 @@ int set_seed_clcg4(int g, double s0, double s1, double s2, double s3)
         Ig [0][g] = (int) s0; Ig [1][g] = (int) s1;
         Ig [2][g] = (int) s2; Ig [3][g] = (int) s3;
         init_generator_clcg4(g, InitialSeed);
-        sciprint(_("\n=> be aware that you have may lost synchronization\n    between the virtual gen %d and the others !\n    use grand(\"setall\", s1, s2, s3, s4) if you want recover it."), g);
+        if (getWarningMode())
+        {
+        sciprint(_("WARNING: %s\n"), _("be aware that you have may lost synchronization\n    between the virtual gen %d and the others !\n    use grand(\"setall\", s1, s2, s3, s4) if you want recover it."), g);
+        }
         return ( 1 );
     }
     else
diff --git a/scilab/modules/randlib/tests/nonreg_tests/bug_8597.dia.ref b/scilab/modules/randlib/tests/nonreg_tests/bug_8597.dia.ref
new file mode 100644 (file)
index 0000000..b49d273
--- /dev/null
@@ -0,0 +1,27 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- ENGLISH IMPOSED -->
+//
+// <-- Non-regression test for bug 8597 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=8597
+//
+// <-- Short Description -->
+// Uncontrolled message of grand/clcg4 should be displayed as warning
+warning("off");
+grand('setgen',"clcg4");
+grand('setsd',123456,123456,123456,123456);
+warning("on");
+grand('setgen',"clcg4");
+grand('setsd',123456,123456,123456,123456);
+WARNING: be aware that you have may lost synchronization
+    between the virtual gen %d and the others !
+    use grand("setall", s1, s2, s3, s4) if you want recover it.
diff --git a/scilab/modules/randlib/tests/nonreg_tests/bug_8597.tst b/scilab/modules/randlib/tests/nonreg_tests/bug_8597.tst
new file mode 100644 (file)
index 0000000..e861fc0
--- /dev/null
@@ -0,0 +1,26 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- ENGLISH IMPOSED -->
+//
+// <-- Non-regression test for bug 8597 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=8597
+//
+// <-- Short Description -->
+// Uncontrolled message of grand/clcg4 should be displayed as warning
+
+warning("off");
+grand('setgen',"clcg4");
+grand('setsd',123456,123456,123456,123456);
+
+warning("on");
+grand('setgen',"clcg4");
+grand('setsd',123456,123456,123456,123456);