added test for OpRc , OpCc and OpMinus

corrected the interfaces of OpCc and OpRc
added the missing combinations in INIT_FillSCI2LibCDirs.sci and updated it
 

3 files changed, 136 insertions, 0 deletions

diff --git a/tests/unit_tests/test_double_OpCc.sci b/tests/unit_tests/test_double_OpCc.sci
new file mode 100644
index 00000000..c306164c
--- /dev/null
+++ b/tests/unit_tests/test_double_OpCc.sci
@@ -0,0 +1,46 @@
+
+
+function test_double_OpCc()
+
+	a = [1 ; 2 ; 3 ; 4]; // d0d0OpCcs2
+	b = [7 ; a];// d0d2OpCcs2
+	c = [a ; 7];// d2d0OpCcs2
+	d = [a ; b];// d2d2OpCcs2
+	disp(a);	
+	disp(b);	
+	disp(c);	
+	disp(d);	
+
+	e = [1*%i ; 2*%i ; 3*%i ; 4*%i ];// z0z0OpCcz2
+	f = [7 ; e];// z0z2OpCcz2
+	g = [e ; 7];// z2z0OpCcz2
+	h = [e ; f];// z2z2OpCcz2
+
+	disp(e);	
+	disp(f);	
+	disp(g);	
+	disp(h);	
+
+	
+	i = [%i  ; 4.5]; // z0d0OpCcz2
+	j = [4.5 ; %i ]; // d0z0OpCcz2
+	k = [4.5 ; i  ]; // d0z2OpCcz2
+	l = [i   ; 4.5]; // z2d0OpCcz2
+
+	disp(i);	
+	disp(j);	
+	disp(k);	
+	disp(l);	
+
+	m = [1   ; 4.5]; 
+	n = [%i  ; m  ]; // z0d2OpCcz2
+	o = [m   ; %i ]; // d0z2OpCcz2
+	p = [m   ; n  ]; // d2z2OpCcz2
+	q = [n   ; m  ]; // z2d2OpCcz2
+
+	disp(n);	
+	disp(o);	
+	disp(p);	
+	disp(q);	
+
+endfunction
diff --git a/tests/unit_tests/test_double_OpMinus.sci b/tests/unit_tests/test_double_OpMinus.sci
new file mode 100644
index 00000000..9220cce1
--- /dev/null
+++ b/tests/unit_tests/test_double_OpMinus.sci
@@ -0,0 +1,45 @@
+function test_double_OpMinus()
+  a = 1;
+  b = 2;
+  c = a - b; // d0d0OpMinusd0
+  disp(c);
+  
+  d = 1 - %i; // d0z0OpMinusz0
+  e = %i - 3; // z0d0OpMinusz0
+  f = d - e; // z0z0OpMinusz0
+
+  disp(f);
+  
+  g = [1 2 3; 4 5 6];
+  h = 10;
+  w = g - h; // d2d0OpMinusd2
+  j = h - g; // d0d2OpMinusd2
+    
+  disp(j);
+
+  k = [9 8 7; 6 5 4; 3 2 1]
+  l = [1 2 3; 4 5 6; 7 8 9]
+  m = k - l // d2d2OpMinusd2
+  
+  disp(m);
+  n = k - 2 * %i; //d2z0OpMinusz2
+  o = 3 * %i - l; //z0d2OpMinusz2
+  p = n - o; // z2z2OpMinusz2
+  
+  disp(p);
+  q = [1 2 3 ; 4 5 6 ; 7 8 9]
+  r = %pi * %i;
+  s = q - r; // d2z0OpMinusz2
+  t = r - q; // z0d2OpMinusz2
+  
+  disp(s);
+  disp(t);
+  u = [1 2 3] - %i * [4 5 6]
+  v = [7 8 9]
+  x = u - v; // z2d2OpMinusz2
+  y = v - u; // d2z2OpMinusz2
+
+  disp(x);
+
+  disp(y);
+endfunction
diff --git a/tests/unit_tests/test_double_OpRc.sci b/tests/unit_tests/test_double_OpRc.sci
new file mode 100644
index 00000000..8a9afd8e
--- /dev/null
+++ b/tests/unit_tests/test_double_OpRc.sci
@@ -0,0 +1,45 @@
+
+function test_double_OpRc()
+
+	a = [1 , 2 , 3 , 4]; // d0d0OpRcs2
+	b = [7 , a];// d0d2OpRcs2
+	c = [a , 7];// d2d0OpRcs2
+	d = [a , b];// d2d2OpRcs2
+	disp(a);	
+	disp(b);	
+	disp(c);	
+	disp(d);	
+
+	e = [1*%i , 2*%i , 3*%i , 4*%i ];// z0z0OpRcz2
+	f = [7 , e];// z0z2OpRcz2
+	g = [e , 7];// z2z0OpRcz2
+	h = [e , f];// z2z2OpRcz2
+
+	disp(e);	
+	disp(f);	
+	disp(g);	
+	disp(h);	
+
+	
+	i = [%i  , 4.5]; // z0d0OpRcz2
+	j = [4.5 , %i ]; // d0z0OpRcz2
+	k = [4.5 , i  ]; // d0z2OpRcz2
+	l = [i   , 4.5]; // z2d0OpRcz2
+
+	disp(i);	
+	disp(j);	
+	disp(k);	
+	disp(l);	
+
+	m = [1   , 4.5]; 
+	n = [%i  , m  ]; // z0d2OpRcz2
+	o = [m   , %i ]; // d0z2OpRcz2
+	p = [m   , n  ]; // d2z2OpRcz2
+	q = [n   , m  ]; // z2d2OpRcz2
+
+	disp(n);	
+	disp(o);	
+	disp(p);	
+	disp(q);	
+
+endfunction