Original Version

1 files changed, 45 insertions, 0 deletions

diff --git a/tests/unit_tests/double/test_OpRc.sci b/tests/unit_tests/double/test_OpRc.sci
new file mode 100644
index 00000000..5d264b77
--- /dev/null
+++ b/tests/unit_tests/double/test_OpRc.sci
@@ -0,0 +1,45 @@
+
+function test_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