bug 3348 fixed
Serge Steer [Tue, 19 Aug 2008 07:56:18 +0000 (07:56 +0000)]
scilab/modules/optimization/tests/nonreg_tests/bug_3348.tst [new file with mode: 0644]

diff --git a/scilab/modules/optimization/tests/nonreg_tests/bug_3348.tst b/scilab/modules/optimization/tests/nonreg_tests/bug_3348.tst
new file mode 100644 (file)
index 0000000..4481a05
--- /dev/null
@@ -0,0 +1,32 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- Non-regression test for bug 3348 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3348
+//
+// <-- Short Description -->
+//    Missing tests in lsqrsolve
+
+
+a=[1,2,4;
+   7,8,3];
+b=[10;11];
+function y=f1(x,m),y=a*x+b;endfunction
+if execstr('[xsol,v]=lsqrsolve([100;100;100],f1,2)','errcatch')==0 then pause,end
+
+a=[1,7;
+   2,8
+   4,3];
+b=[10;11;-1];
+function y=f1(x,m),y=a*x+b;endfunction
+if execstr('[xsol,v]=lsqrsolve([100;100],f1,3,[-1.d-8,1.d-8,1.d-5,1000,0,100])','errcatch')==0 then pause,end
+if execstr('[xsol,v]=lsqrsolve([100;100],f1,3,[1.d-8,1.d-8,1.d-5,1000,0,100],[0 1])','errcatch')==0 then pause,end
+
+
+