Fix test in optimization module: test_run('optimization', 'optimbase_checkcostfun') 84/12584/3
Adeline CARNIS [Wed, 18 Sep 2013 12:39:40 +0000 (14:39 +0200)]
test_run('optimization', 'optimbase_newdestroy')

Change-Id: I2cfb3a194a15a94675e3ff6d6dc028812ba97b23

scilab/modules/optimization/tests/unit_tests/optimbase/optimbase_checkcostfun.dia.ref
scilab/modules/optimization/tests/unit_tests/optimbase/optimbase_checkcostfun.tst
scilab/modules/optimization/tests/unit_tests/optimbase/optimbase_newdestroy.dia.ref
scilab/modules/optimization/tests/unit_tests/optimbase/optimbase_newdestroy.tst

index 590511d..283f278 100644 (file)
@@ -89,6 +89,7 @@ assert_checkerror(cmd,errmsg,[], "optimbase_checkcostfun" , "index" , 1 , 0 , 1)
 opt = optimbase_destroy(opt);
 //
 // Test with wrong  non linear constraints f(x0,2) is not a row vector
+// The cost function transposes the column vector.
 //
 function [ f , c , index ] = optimtestcase2 ( x , index )
   f = []
@@ -112,8 +113,7 @@ opt = optimbase_configure(opt,"-numberofvariables",4);
 opt = optimbase_configure(opt,"-function",optimtestcase2);
 opt = optimbase_configure(opt,"-x0",[0.0 0.0 0.0 0.0]');
 opt = optimbase_configure(opt,"-nbineqconst",3);
-cmd = "opt = optimbase_checkcostfun(opt);";
-assert_checkerror(cmd,"%s: The matrix %s from costf(x0,%d) has %d rows, instead of %d.",[],"optimbase_checkcostfun","c",5,3,1);
+opt = optimbase_checkcostfun(opt);
 opt = optimbase_destroy(opt);
 //
 // Test with wrong  non linear constraints f(x0,2) is a row vector with 5 components instead of 3
@@ -145,6 +145,7 @@ assert_checkerror(cmd,"%s: The matrix %s from costf(x0,%d) has %d columns, inste
 opt = optimbase_destroy(opt);
 //
 // Test with wrong  non linear constraints f(x0,3) is a column vector
+// The cost function transposes the column vector.
 //
 function [ f , c , index ] = optimtestcase4 ( x , index )
   f = []
@@ -168,8 +169,7 @@ opt = optimbase_configure(opt,"-numberofvariables",4);
 opt = optimbase_configure(opt,"-function",optimtestcase4);
 opt = optimbase_configure(opt,"-x0",[0.0 0.0 0.0 0.0]');
 opt = optimbase_configure(opt,"-nbineqconst",3);
-cmd = "opt = optimbase_checkcostfun(opt);";
-assert_checkerror(cmd,"%s: The matrix %s from costf(x0,%d) has %d rows, instead of %d.",[],"optimbase_checkcostfun","c",5,3,1);
+opt = optimbase_checkcostfun(opt);
 opt = optimbase_destroy(opt);
 //
 // Test with wrong  non linear constraints f(x0,3) is a row vector with 5 columns instead of 4
@@ -216,7 +216,7 @@ opt = optimbase_checkcostfun(opt);
 opt = optimbase_destroy(opt);
 //
 // Test with not correct rosenbrock function : g is a column vector instead of row vector
-//
+// The cost function transposes the column vector.
 function [ f , g , index ] = rosenbrock4 ( x , index )
   f = 100.0 *(x(2)-x(1)^2)^2 + (1-x(1))^2;
   g(1) = - 400. * ( x(2) - x(1)**2 ) * x(1) -2. * ( 1. - x(1) )
@@ -227,6 +227,5 @@ opt = optimbase_configure(opt,"-numberofvariables",2);
 opt = optimbase_configure(opt,"-function", rosenbrock4 );
 opt = optimbase_configure(opt,"-withderivatives",%t);
 opt = optimbase_configure(opt,"-x0",[-1.2 1.0].');
-cmd = "opt = optimbase_checkcostfun(opt);";
-assert_checkerror(cmd,"%s: The matrix %s from costf(x0,%d) has %d rows, instead of %d.",[],"optimbase_checkcostfun","g",3,2,1);
+opt = optimbase_checkcostfun(opt);
 opt = optimbase_destroy(opt);
index 015ec9c..3dc5686 100644 (file)
@@ -96,6 +96,7 @@ opt = optimbase_destroy(opt);
 
 //
 // Test with wrong  non linear constraints f(x0,2) is not a row vector
+// The cost function transposes the column vector.
 //
 function [ f , c , index ] = optimtestcase2 ( x , index )
   f = []
@@ -119,8 +120,7 @@ opt = optimbase_configure(opt,"-numberofvariables",4);
 opt = optimbase_configure(opt,"-function",optimtestcase2);
 opt = optimbase_configure(opt,"-x0",[0.0 0.0 0.0 0.0]');
 opt = optimbase_configure(opt,"-nbineqconst",3);
-cmd = "opt = optimbase_checkcostfun(opt);";
-assert_checkerror(cmd,"%s: The matrix %s from costf(x0,%d) has %d rows, instead of %d.",[],"optimbase_checkcostfun","c",5,3,1);
+opt = optimbase_checkcostfun(opt);
 opt = optimbase_destroy(opt);
 
 //
@@ -154,6 +154,7 @@ opt = optimbase_destroy(opt);
 
 //
 // Test with wrong  non linear constraints f(x0,3) is a column vector
+// The cost function transposes the column vector.
 //
 function [ f , c , index ] = optimtestcase4 ( x , index )
   f = []
@@ -177,8 +178,7 @@ opt = optimbase_configure(opt,"-numberofvariables",4);
 opt = optimbase_configure(opt,"-function",optimtestcase4);
 opt = optimbase_configure(opt,"-x0",[0.0 0.0 0.0 0.0]');
 opt = optimbase_configure(opt,"-nbineqconst",3);
-cmd = "opt = optimbase_checkcostfun(opt);";
-assert_checkerror(cmd,"%s: The matrix %s from costf(x0,%d) has %d rows, instead of %d.",[],"optimbase_checkcostfun","c",5,3,1);
+opt = optimbase_checkcostfun(opt);
 opt = optimbase_destroy(opt);
 
 //
@@ -229,7 +229,7 @@ opt = optimbase_checkcostfun(opt);
 opt = optimbase_destroy(opt);
 //
 // Test with not correct rosenbrock function : g is a column vector instead of row vector
-//
+// The cost function transposes the column vector.
 function [ f , g , index ] = rosenbrock4 ( x , index )
   f = 100.0 *(x(2)-x(1)^2)^2 + (1-x(1))^2;
   g(1) = - 400. * ( x(2) - x(1)**2 ) * x(1) -2. * ( 1. - x(1) )
@@ -241,7 +241,6 @@ opt = optimbase_configure(opt,"-numberofvariables",2);
 opt = optimbase_configure(opt,"-function", rosenbrock4 );
 opt = optimbase_configure(opt,"-withderivatives",%t);
 opt = optimbase_configure(opt,"-x0",[-1.2 1.0].');
-cmd = "opt = optimbase_checkcostfun(opt);";
-assert_checkerror(cmd,"%s: The matrix %s from costf(x0,%d) has %d rows, instead of %d.",[],"optimbase_checkcostfun","g",3,2,1);
+opt = optimbase_checkcostfun(opt);
 opt = optimbase_destroy(opt);
 
index 39013e6..90feebe 100644 (file)
@@ -215,8 +215,8 @@ opt = optimbase_new ();
 //
 // Test wrong initial guess
 //
-cmd = "optimbase_configure(opt,''-x0'',[-1.2 1.0])";
-assert_checkerror(cmd,"%s: The x0 vector is expected to be a column matrix, but current shape is %d x %d",[],"optimbase_configure",1,2);
+cmd = "optimbase_configure(opt,''-x0'',[-1.2 1.0; -1.0 1.2])";
+assert_checkerror(cmd,"%s: Wrong size for x0 argument: A vector expected.", [], "optimbase_configure");
 //
 // Test wrong -tolxmethod
 //
index cbfb717..9e1eb28 100644 (file)
@@ -221,8 +221,8 @@ opt = optimbase_new ();
 //
 // Test wrong initial guess
 //
-cmd = "optimbase_configure(opt,''-x0'',[-1.2 1.0])";
-assert_checkerror(cmd,"%s: The x0 vector is expected to be a column matrix, but current shape is %d x %d",[],"optimbase_configure",1,2);
+cmd = "optimbase_configure(opt,''-x0'',[-1.2 1.0; -1.0 1.2])";
+assert_checkerror(cmd,"%s: Wrong size for x0 argument: A vector expected.", [], "optimbase_configure");
 //
 // Test wrong -tolxmethod
 //