# HG changeset patch
# User Chris Cannam
# Date 1370034123 -3600
# Node ID ec6a36d88f57ef5b9e4ec2da77da80da4ea76ecd
# Parent  f099fb3c63a0135422dd85cdecc92d5652051fe1
Move complex tests to complex package

diff -r f099fb3c63a0 -r ec6a36d88f57 yetilab/complex/test/test_complex.yeti
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/yetilab/complex/test/test_complex.yeti	Fri May 31 22:02:03 2013 +0100
@@ -0,0 +1,66 @@
+module yetilab.complex.test.test_complex;
+
+{ real, imaginary, complex, magnitude, angle, sum, scale, zeros, magnitudes, angles }
+   = load yetilab.complex;
+
+{ compare } = load yetilab.test.test;
+
+vec = load yetilab.vector;
+
+[
+
+"complex": \( 
+    compare (complex 1 2) (complex 1 2) and
+        complex (-1) 2 != complex 1 2
+),
+
+"real": \(
+    compare (real (complex 3 2)) 3
+),
+
+"imaginary": \(
+    compare (imaginary (complex 3 4)) 4
+),
+
+"magnitude": \(
+    compare (magnitude (complex (-3) 4)) 5
+),
+
+"angle": \(
+    compare (angle (complex 1 0)) 0 and
+        compare (angle (complex 1 1)) (pi/4) and
+        compare (angle (complex 0 1)) (pi/2) and
+        compare (angle (complex (-1) 0)) pi and
+        compare (angle (complex 0 (-1))) (-pi/2)
+),
+
+"sum": \(
+    compare (sum [complex 2 3, complex (-4) 5]) (complex (-2) 8)
+),
+
+"scale": \(
+    compare (scale 4 (complex 2 3)) (complex 8 12)
+),
+
+"zeros": \(
+    compare (zeros 0) (array []) and
+        compare (zeros 3) (array [complex 0 0, complex 0 0, complex 0 0])
+),
+
+"magnitudes": \(
+    compare (vec.list (magnitudes [ complex (-3) 4, complex 4 3, complex 0 0 ]))
+            [ 5, 5, 0 ] and
+       compare (vec.list (magnitudes (array []))) []
+),
+
+"angles": \(
+    compare (vec.list (angles [ complex 1 0, complex (-1) 0, complex 0 (-1) ]))
+            [ 0, pi, -pi/2 ] and
+       compare (vec.list (angles (array []))) []
+),
+
+
+] is hash<string, () -> boolean>;
+
+
+
diff -r f099fb3c63a0 -r ec6a36d88f57 yetilab/vector/test/test_complex.yeti
--- a/yetilab/vector/test/test_complex.yeti	Fri May 31 17:34:46 2013 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,66 +0,0 @@
-module yetilab.vector.test.test_complex;
-
-{ real, imaginary, complex, magnitude, angle, add, scale, zeros, magnitudes, angles }
-   = load yetilab.complex;
-
-{ compare } = load yetilab.test.test;
-
-vec = load yetilab.vector;
-
-[
-
-"complex": \( 
-    compare (complex 1 2) (complex 1 2) and
-        complex (-1) 2 != complex 1 2
-),
-
-"real": \(
-    compare (real (complex 3 2)) 3
-),
-
-"imaginary": \(
-    compare (imaginary (complex 3 4)) 4
-),
-
-"magnitude": \(
-    compare (magnitude (complex (-3) 4)) 5
-),
-
-"angle": \(
-    compare (angle (complex 1 0)) 0 and
-        compare (angle (complex 1 1)) (pi/4) and
-        compare (angle (complex 0 1)) (pi/2) and
-        compare (angle (complex (-1) 0)) pi and
-        compare (angle (complex 0 (-1))) (-pi/2)
-),
-
-"add": \(
-    compare (add (complex 2 3) (complex (-4) 5)) (complex (-2) 8)
-),
-
-"scale": \(
-    compare (scale 4 (complex 2 3)) (complex 8 12)
-),
-
-"zeros": \(
-    compare (zeros 0) (array []) and
-        compare (zeros 3) (array [complex 0 0, complex 0 0, complex 0 0])
-),
-
-"magnitudes": \(
-    compare (vec.list (magnitudes [ complex (-3) 4, complex 4 3, complex 0 0 ]))
-            [ 5, 5, 0 ] and
-       compare (vec.list (magnitudes (array []))) []
-),
-
-"angles": \(
-    compare (vec.list (angles [ complex 1 0, complex (-1) 0, complex 0 (-1) ]))
-            [ 0, pi, -pi/2 ] and
-       compare (vec.list (angles (array []))) []
-),
-
-
-] is hash<string, () -> boolean>;
-
-
-