1 files changed, 35 insertions, 0 deletions
diff --git a/tests/general_tests/cbcintlinprog/cbcintlinprog_beq.sce b/tests/general_tests/cbcintlinprog/cbcintlinprog_beq.sce
new file mode 100644
index 0000000..bc1e3b7
--- /dev/null
+++ b/tests/general_tests/cbcintlinprog/cbcintlinprog_beq.sce
@@ -0,0 +1,35 @@
+// Check if a user specifies coefficients of linear inequality contraints of the correct dimensions 
+
+// Reference : Example 1-3, Integer Linear Programming, Hamdy A. Taha. "Operations Research-An Introduction", 9E(2014))
+
+// Objective function
+c = [0.25,0.21,0.22,16,25,18]';
+
+// Lower Bound of variable
+lb = repmat(0,1,6);
+// Upper Bound of variables
+ub = [repmat(%inf,1,3) repmat(1,1,3)];
+
+// Constraint Matrix
+A = [1, 0, 0, -200, 0, 0;
+0, 1, 0, 0, -200, 0;
+0, 0, 1, 0, 0, -200]
+
+b=[0, 0, 0]
+
+Aeq = [1, 1, 1, 0, 0, 0]
+
+beq = [ 200]
+
+intcon = [4 5 6];
+
+// Calling cbcintlinprog
+[x,f,status,output] = cbcintlinprog(c,intcon,A,b,Aeq,Aeq,lb,ub)
+
+//!--error 6 
+//Inconsistent row/column dimensions.
+//at line     208 of function cbcmatrixintlinprog called by :  
+//at line     203 of function cbcintlinprog called by :  
+//[x,f,status,output] = cbcintlinprog(c,intcon,A,b,Aeq,Aeq,lb,ub)
+//at line      27 of exec file called by :    
+//exec cbcintlinprog_beq.sce