Updated tests for int and ecos functions

9 files changed, 200 insertions, 0 deletions

diff --git a/tests/general_tests/intqpipopt/intqpipopt_A1.sce b/tests/general_tests/intqpipopt/intqpipopt_A1.sce
new file mode 100644
index 0000000..bfb9e2f
--- /dev/null
+++ b/tests/general_tests/intqpipopt/intqpipopt_A1.sce
@@ -0,0 +1,21 @@
+//Find x in R^6 such that:
+// Check if a user gives unequal number of constraints as given by him
+
+A= [1,-1,1,0,3,1;
+-1,0,-3,-4,5,6;
+2,5,3,0,1,0
+0,1,0,1,2,-1;];
+b = [1;2;3;-1;2.5];
+//and minimize 0.5*x'*H*x + f'*x with
+f=[1; 2; 3; 4; 5; 6]; H=eye(6,6);
+intcon=[1,2];
+
+//  !--error 10000 
+// intqpipopt: The number of rows in A must be the same as the number of elements of b
+// at line     291 of function intqpipopt called by :  
+// [xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b)
+// at line      24 of exec file called by :    
+// exec intqpipopt_A1.sce
+
+[xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b)
+
diff --git a/tests/general_tests/intqpipopt/intqpipopt_A2.sce b/tests/general_tests/intqpipopt/intqpipopt_A2.sce
new file mode 100644
index 0000000..8f62f31
--- /dev/null
+++ b/tests/general_tests/intqpipopt/intqpipopt_A2.sce
@@ -0,0 +1,23 @@
+//Find x in R^6 such that:
+//Check for the size of constraints
+A= [-1,1,0,3,1;
+-1,0,-3,-4,5;
+2,5,3,0,1
+0,1,0,1,2;
+-1,0,2,1,1];
+b=[1;2;3;-%inf;-%inf];
+lb=[-1000;-10000; 0; -1000; -1000; -1000];
+ub=[10000; 100; 1.5; 100; 100; 1000];
+//and minimize 0.5*x'*H*x + f'*x with
+f=[1; 2; 3; 4; 5; 6]; H=eye(6,6);
+
+//  !--error 10000 
+// intqpipopt: The number of columns in A must be the same as the number of elements of f
+// at line     267 of function intqpipopt called by :  
+// [xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
+// at line      23 of exec file called by :    
+// exec intqpipopt_A2.sce
+
+
+[xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
+
diff --git a/tests/general_tests/intqpipopt/intqpipopt_H1.sce b/tests/general_tests/intqpipopt/intqpipopt_H1.sce
new file mode 100644
index 0000000..bff59b4
--- /dev/null
+++ b/tests/general_tests/intqpipopt/intqpipopt_H1.sce
@@ -0,0 +1,20 @@
+//Find x in R^6 such that:
+//Random non-symmetric H
+A= [-1,1,0,3,1;
+-1,0,-3,-4,5;
+2,5,3,0,1
+0,1,0,1,2;
+-1,0,2,1,1];
+b=[1;2;3;-%inf;-%inf];
+lb=[-1000;-10000; 0; -1000; -1000; -1000];
+ub=[10000; 100; 1.5; 100; 100; 1000];
+//and minimize 0.5*x'*H*x + f'*x with
+f=[1; 2; 3; 4; 5; 6]; H=rand(6,6);
+
+//  !--error 10000 
+// intqpipopt: H is not a symmetric matrix
+// at line     236 of function intqpipopt called by :  
+// [xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
+
+
+[xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
\ No newline at end of file
diff --git a/tests/general_tests/intqpipopt/intqpipopt_H2.sce b/tests/general_tests/intqpipopt/intqpipopt_H2.sce
new file mode 100644
index 0000000..f5001bf
--- /dev/null
+++ b/tests/general_tests/intqpipopt/intqpipopt_H2.sce
@@ -0,0 +1,23 @@
+//Find x in R^6 such that:
+//H is a string
+A= [-1,1,0,3,1;
+-1,0,-3,-4,5;
+2,5,3,0,1
+0,1,0,1,2;
+-1,0,2,1,1];
+b=[1;2;3;-%inf;-%inf];
+lb=[-1000;-10000; 0; -1000; -1000; -1000];
+ub=[10000; 100; 1.5; 100; 100; 1000];
+//and minimize 0.5*x'*H*x + f'*x with
+f=[1; 2; 3; 4; 5; 6]; H="rand(6,6)";
+
+//  !--error 10000 
+// intqpipopt: Expected type ["constant"] for input argument H at input #1, but got "string" instead.
+// at line      56 of function Checktype called by :  
+// at line     190 of function intqpipopt called by :  
+// [xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
+// at line      20 of exec file called by :    
+// exec intqpipopt_H2.sce
+
+
+[xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
\ No newline at end of file
diff --git a/tests/general_tests/intqpipopt/intqpipopt_b1.sce b/tests/general_tests/intqpipopt/intqpipopt_b1.sce
new file mode 100644
index 0000000..097b383
--- /dev/null
+++ b/tests/general_tests/intqpipopt/intqpipopt_b1.sce
@@ -0,0 +1,23 @@
+//Find x in R^6 such that:
+//b is a string
+A= [-1,1,0,3,1;
+-1,0,-3,-4,5;
+2,5,3,0,1
+0,1,0,1,2;
+-1,0,2,1,1];
+b="[1;2;3;-%inf;-%inf];"
+lb=[-1000;-10000; 0; -1000; -1000; -1000];
+ub=[10000; 100; 1.5; 100; 100; 1000];
+//and minimize 0.5*x'*H*x + f'*x with
+f=[1; 2; 3; 4; 5; 6]; H=eye(6,6);
+
+//  !--error 10000 
+// intqpipopt: Expected type ["constant"] for input argument b at input #5, but got "string" instead.
+// at line      56 of function Checktype called by :  
+// at line     194 of function intqpipopt called by :  
+// [xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
+// at line      22 of exec file called by :    
+// exec intqpipopt_b1.sce
+
+
+[xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
\ No newline at end of file
diff --git a/tests/general_tests/intqpipopt/intqpipopt_f.sce b/tests/general_tests/intqpipopt/intqpipopt_f.sce
new file mode 100644
index 0000000..c79cb4c
--- /dev/null
+++ b/tests/general_tests/intqpipopt/intqpipopt_f.sce
@@ -0,0 +1,24 @@
+//Find x in R^6 such that:
+//f is a string
+A= [-1,1,0,3,1;
+-1,0,-3,-4,5;
+2,5,3,0,1
+0,1,0,1,2;
+-1,0,2,1,1];
+b=[1;2;3;-%inf;-%inf];
+lb=[-1000;-10000; 0; -1000; -1000; -1000];
+ub=[10000; 100; 1.5; 100; 100; 1000];
+//and minimize 0.5*x'*H*x + f'*x with
+f="[1; 2; 3; 4; 5; 6]"; H=eye(6,6);
+
+//  !--error 10000 
+// intqpipopt: Expected type ["constant"] for input argument f at input #2, but got "string" instead.
+// at line      56 of function Checktype called by :  
+// at line     191 of function intqpipopt called by :  
+// [xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
+// at line      23 of exec file called by :    
+// exec intqpipopt_f.sce
+
+
+
+[xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
\ No newline at end of file
diff --git a/tests/general_tests/intqpipopt/intqpipopt_lb.sce b/tests/general_tests/intqpipopt/intqpipopt_lb.sce
new file mode 100644
index 0000000..fb3d46a
--- /dev/null
+++ b/tests/general_tests/intqpipopt/intqpipopt_lb.sce
@@ -0,0 +1,22 @@
+//Find x in R^6 such that:
+//b is a string
+A= [-1,1,0,3,1;
+-1,0,-3,-4,5;
+2,5,3,0,1
+0,1,0,1,2;
+-1,0,2,1,1];
+b=[1;2;3;-%inf;-%inf];
+lb="[-1000;-10000; 0; -1000; -1000; -1000];"
+ub=[10000; 100; 1.5; 100; 100; 1000];
+//and minimize 0.5*x'*H*x + f'*x with
+f=[1; 2; 3; 4; 5; 6]; H=eye(6,6);
+
+//  !--error 10000 
+// intqpipopt: Expected type ["constant"] for input argument lb at input #8, but got "string" instead.
+// at line      56 of function Checktype called by :  
+// at line     197 of function intqpipopt called by :  
+// [xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
+// at line      23 of exec file called by :    
+// exec intqpipopt_lb.sce
+
+[xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
\ No newline at end of file
diff --git a/tests/general_tests/intqpipopt/intqpipopt_obj_zero.sce b/tests/general_tests/intqpipopt/intqpipopt_obj_zero.sce
new file mode 100644
index 0000000..486ea88
--- /dev/null
+++ b/tests/general_tests/intqpipopt/intqpipopt_obj_zero.sce
@@ -0,0 +1,21 @@
+//Find x in R^6 such that:
+//b is a string
+A= [-1,1,0,3,1;
+-1,0,-3,-4,5;
+2,5,3,0,1
+0,1,0,1,2;
+-1,0,2,1,1];
+b=[1;2;3;-%inf;-%inf];
+lb=[-1000;-10000; 0; -1000; -1000; -1000];
+ub=[10000; 100; 1.5; 100; 100; 1000];
+//and minimize 0.5*x'*H*x + f'*x with
+f=[]; H=[];
+
+//  !--error 10000 
+// intqpipopt: Cannot determine the number of variables because input objective coefficients is empty
+// at line     129 of function intqpipopt called by :  
+// [xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
+// at line      23 of exec file called by :    
+// exec intqpipopt_obj_zero.sce
+
+[xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
\ No newline at end of file
diff --git a/tests/general_tests/intqpipopt/intqpipopt_ub.sce b/tests/general_tests/intqpipopt/intqpipopt_ub.sce
new file mode 100644
index 0000000..10fcd28
--- /dev/null
+++ b/tests/general_tests/intqpipopt/intqpipopt_ub.sce
@@ -0,0 +1,23 @@
+//Find x in R^6 such that:
+//b is a string
+A= [-1,1,0,3,1;
+-1,0,-3,-4,5;
+2,5,3,0,1
+0,1,0,1,2;
+-1,0,2,1,1];
+b=[1;2;3;-%inf;-%inf];
+lb=[-1000;-10000; 0; -1000; -1000; -1000];
+ub="[10000; 100; 1.5; 100; 100; 1000];"
+//and minimize 0.5*x'*H*x + f'*x with
+f=[1; 2; 3; 4; 5; 6]; H=eye(6,6);
+
+//  !--error 10000 
+// intqpipopt: Expected type ["constant"] for input argument ub at input #9, but got "string" instead.
+// at line      56 of function Checktype called by :  
+// at line     198 of function intqpipopt called by :  
+// [xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
+// at line      22 of exec file called by :    
+// exec intqpipopt_ub.sce
+
+
+[xopt,fopt,exitflag,output,lambda]=intqpipopt(H,f,intcon,A,b,[],[],lb,ub)
\ No newline at end of file