3 files changed, 180 insertions, 0 deletions
diff --git a/tests/unit_tests/test_double_OpIns.sci b/tests/unit_tests/test_double_OpIns.sci
new file mode 100644
index 00000000..d6ca31aa
--- /dev/null
+++ b/tests/unit_tests/test_double_OpIns.sci
@@ -0,0 +1,129 @@
+function test_double_OpIns()
+  //reals
+a=[1 2 3; 4 5 6]
+
+a(3)=-2
+disp(a);
+
+a(3)=-4+%i
+disp(a);
+
+a(1,3)=-12;
+disp(a);
+
+a(1,3)=-5+%i;
+disp(a);
+
+a([1,2],1)=-12;
+disp(a);
+
+a([1,2],1)=-5+%i;
+disp(a);
+
+a(2,[2,3])=-12;
+disp(a);
+
+a(2,[2,3])=-5+%i;
+disp(a);
+
+a([1 2],[1,2,3])=4;
+disp(a);
+
+a([1 2],[1,2,3])=3+%i;
+disp(a);
+
+a([1,3])=7;
+disp(a);
+
+a([1,3])=2+%i;
+disp(a);
+
+a([1,3])=[1,0];
+disp(a);
+
+a([1,3])=[3-%i,1+%i];
+disp(a);
+
+a(2,[1,3])=[-2,-7];
+disp(a);
+
+a(2,[1,3])=[-4+%i,-5+%i];
+disp(a);
+
+a([1,2],3)=[-9;-1];
+disp(a);
+
+a([1,2],3)=[-4+%i;-5+%i];
+disp(a);
+
+a([1,2],[2,3])=[-31 -45;-29 -51];
+disp(a);
+
+a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i];
+disp(a);
+
+
+//complexes
+
+b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6]
+
+b(3)=-2
+disp(b);
+
+b(3)=-4+%i
+disp(b);
+
+b(1,3)=-12;
+disp(b);
+
+b(1,3)=-5+%i;
+disp(b);
+
+b([1,2],1)=-12;
+disp(b);
+
+b([1,2],1)=-5+%i;
+disp(b);
+
+b(2,[2,3])=-12;
+disp(b);
+
+b(2,[2,3])=-5+%i;
+disp(b);
+
+b([1 2],[1,2,3])=4;
+disp(b);
+
+b([1 2],[1,2,3])=3+%i;
+disp(b);
+
+b([1,3])=7;
+disp(b);
+
+b([1,3])=2+%i;
+disp(b);
+
+b([1,3])=[1,0];
+disp(b);
+
+b([1,3])=[3-%i,1+%i];
+disp(b);
+
+b(2,[1,3])=[-2,-7];
+disp(b);
+
+b(2,[1,3])=[-4+%i,-5+%i];
+disp(b);
+
+b([1,2],3)=[-9;-1];
+disp(b);
+
+b([1,2],3)=[-4+%i;-5+%i];
+disp(b);
+
+b([1,2],[2,3])=[-31 -45;-29 -51];
+disp(b);
+
+b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i];
+disp(b);
+endfunction
+\ No newline at end of file
diff --git a/tests/unit_tests/test_double_OpLogNot.sci b/tests/unit_tests/test_double_OpLogNot.sci
new file mode 100644
index 00000000..6b103544
--- /dev/null
+++ b/tests/unit_tests/test_double_OpLogNot.sci
@@ -0,0 +1,23 @@
+function test_double_OpLogNot()
+// test OpLogNot
+
+  disp(~(-2))
+  disp(~(0))
+  disp(~(3))
+
+  disp(~(0-2*%i))
+  disp(~(0+0*%i))
+  disp(~(0+3*%i))
+  disp(~(3-5*%i))
+  disp(~(3+0*%i))
+  disp(~(3+6*%i))
+
+  a=[-1 2 3; 0 -1 4; 2 -0 5];
+
+  disp(~(a))
+
+  b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0*%i]
+
+  disp(~(b))
+
+endfunction
+\ No newline at end of file
diff --git a/tests/unit_tests/test_double_OpStar.sci b/tests/unit_tests/test_double_OpStar.sci
new file mode 100644
index 00000000..329bb671
--- /dev/null
+++ b/tests/unit_tests/test_double_OpStar.sci
@@ -0,0 +1,28 @@
+function test_double_OpStar()
+  a = 2 * 3; //d0d0OpStard0
+  b = 2 * %i;
+  c = 2 * b; //d0z0OpStard0
+  d = [2 * %i 3 * %i 4* %i];
+  e = 2 * d; //d0z2OpStarz2
+  l = 2 * [1 2; 3 4 ; 5 6] //d0d2OpStard2
+  
+  f = b * a; // z0d0OpStarz0
+  g = b * b; // z0z0OpStarz0
+  h = [1 2 3 4];
+  j = b * h; // z0d2OpStarz2
+  k = b * d; // z0z2OpStarz2
+
+  m = [1 2;3 4] * [5 6; 7 8] //d2d2OpStard2
+  n = [1 2;3 4] * ([5 6; 7 8] + %i) //d2z2OpStarz2
+  o = [1 2 3 4 5 6 7 8 9];
+  p = o * o' // d2d2OpStard0
+  q = o * (o + %i)' // d2z2OpStarz0
+  disp(q);
+  
+  r = ([1 2;3 4] + %i) * ([5 6; 7 8] + %i) //z2z2OpStarz2
+  s = ([1 2;3 4] + %i) * [5 6; 7 8] //z2d2OpStarz2
+  t = [1 2 3 4 5 6 7 8 9] + %i;
+  u = t * t'; // z2z2OpStarz0
+  v = t * o'; //z2d2OpStarz0
+  disp(v);
+endfunction
+\ No newline at end of file