separate float and double tests

1 files changed, 41 insertions, 0 deletions

diff --git a/tests/unit_tests/double/test_double_Spec.sci b/tests/unit_tests/double/test_double_Spec.sci
new file mode 100644
index 00000000..61cca50f
--- /dev/null
+++ b/tests/unit_tests/double/test_double_Spec.sci
@@ -0,0 +1,41 @@
+function test_double_Spec()
+
+
+	disp(spec(45)) ; // d0Spec
+	disp(spec(4+3*%i)); // z0Spec
+	
+	a = [1 2 3; -4 5 98 ; 7 8 5] ;
+	b = [1 2 3; -4 5 98 ; 7 -100000 5] ;
+
+
+	disp(spec(a));
+	disp(spec(b));
+
+	disp(spec(a*%i));
+ // 2 outputs
+
+	[aa bb] = spec(45) ; // d0Spec
+	disp(aa);
+	disp(bb);
+	
+ 	[cc dd] = spec(4+3*%i); // z0Spec
+	
+	disp(cc);
+	disp(dd);
+
+	a = [1 2 3; -4 5 98 ; 7 8 5] ;
+	b = [1 2 3; -4 5 98 ; 7 -100000 5] ;
+
+
+	[ee ff] = spec(a);
+	disp(ee);
+	disp(ff);
+	[gg hh] = spec(b);
+	disp(gg);
+	disp(hh);
+
+	[ii jj] = spec(a*%i);
+	disp(ii);
+	disp(jj);
+
+endfunction