* Bug #13791 fixed - ricc no longer managed the 'invf' method. 77/16277/1
Vincent COUVERT [Mon, 30 Mar 2015 08:49:05 +0000 (10:49 +0200)]
test_run cacsd bug_13791

Change-Id: Ic8c02d8eb88365c12bd9441a345d8ff4f6b2fedd

scilab/CHANGES_5.5.X
scilab/modules/cacsd/sci_gateway/c/sci_ricc2.c
scilab/modules/cacsd/tests/nonreg_tests/bug_13791.dia.ref [new file with mode: 0644]
scilab/modules/cacsd/tests/nonreg_tests/bug_13791.tst [new file with mode: 0644]

index e51754a..ac2873b 100644 (file)
@@ -149,6 +149,8 @@ Scilab Bug Fixes
 
 * Bug #13772 fixed - Xcos GUI was not locked while setting parameters.
 
+* Bug #13791 fixed - ricc no longer managed the 'invf' method.
+
 
 Known incompatibilities
 =======================
index 514da03..b844a79 100644 (file)
@@ -190,7 +190,7 @@ int sci_ricc2(char *fname, unsigned long fname_len)
         }
         else
         {
-            WSIGN  = (strcmp((lMETHOD), "invf") == 0 || strcmp((lMETHOD), "INVF") == 0);
+            WINVF  = (strcmp((lMETHOD), "invf") == 0 || strcmp((lMETHOD), "INVF") == 0);
             if (WSCHUR == FALSE && WINVF == FALSE)
             {
                 freeAllocatedSingleString(lMETHOD);
diff --git a/scilab/modules/cacsd/tests/nonreg_tests/bug_13791.dia.ref b/scilab/modules/cacsd/tests/nonreg_tests/bug_13791.dia.ref
new file mode 100644 (file)
index 0000000..4f25835
--- /dev/null
@@ -0,0 +1,26 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2015 - Scilab Enterprises - Vincent COUVERT
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 13791 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/13791
+//
+// <-- Short Description -->
+// ricc() no longer accepts the 'invf' method.
+//
+F = rand(3,3);
+G1 = rand(3,2);
+R = rand(2,2);
+G2 = R*R'+eye();
+G = G1/G2*G1';
+C = rand(3,3);
+H = C*C';
+ierr = execstr("X=ricc(F,G,H,""disc"",""invf"");", "errcatch");
+assert_checktrue(ierr==0);
diff --git a/scilab/modules/cacsd/tests/nonreg_tests/bug_13791.tst b/scilab/modules/cacsd/tests/nonreg_tests/bug_13791.tst
new file mode 100644 (file)
index 0000000..191b674
--- /dev/null
@@ -0,0 +1,28 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2015 - Scilab Enterprises - Vincent COUVERT
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 13791 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/13791
+//
+// <-- Short Description -->
+// ricc() no longer accepts the 'invf' method.
+//
+
+F = rand(3,3);
+G1 = rand(3,2);
+R = rand(2,2);
+G2 = R*R'+eye();
+G = G1/G2*G1';
+C = rand(3,3);
+H = C*C';
+
+ierr = execstr("X=ricc(F,G,H,""disc"",""invf"");", "errcatch");
+assert_checktrue(ierr==0);
\ No newline at end of file