Rearrange tests somewhat
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 10 Dec 2009 06:55:57 +0000 (06:55 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 10 Dec 2009 06:55:57 +0000 (06:55 +0000)
tests/Tests/Vector.hs
tests/Utilities.hs

index d18d464..59b5c42 100644 (file)
@@ -426,12 +426,13 @@ testNumericStorableVector dummy = concatMap ($ dummy)
 
 testGeneralUnboxedVector dummy = concatMap ($ dummy) [
         testSanity,
-        testPolymorphicFunctions
+        testPolymorphicFunctions,
+        testOrdFunctions
     ]
 
-testOrdUnboxedVector dummy = concatMap ($ dummy)
+testUnitUnboxedVector dummy = concatMap ($ dummy)
   [
-    testOrdFunctions
+    testGeneralUnboxedVector
   ]
 
 testBoolUnboxedVector dummy = concatMap ($ dummy)
@@ -452,15 +453,13 @@ tests = [
         testGroup "Data.Vector.Vector (Int)"            (testNumericBoxedVector   (undefined :: Data.Vector.Vector Int)),
 
         testGroup "Data.Vector.Primitive.Vector (Int)"    (testNumericPrimitiveVector (undefined :: Data.Vector.Primitive.Vector Int)),
-        testGroup "Data.Vector.Primitive.Vector (Float)"  (testNumericPrimitiveVector (undefined :: Data.Vector.Primitive.Vector Float)),
         testGroup "Data.Vector.Primitive.Vector (Double)" (testNumericPrimitiveVector (undefined :: Data.Vector.Primitive.Vector Double)),
 
         testGroup "Data.Vector.Storable.Vector (Int)"    (testNumericStorableVector (undefined :: Data.Vector.Storable.Vector Int)),
-        testGroup "Data.Vector.Storable.Vector (Float)"  (testNumericStorableVector (undefined :: Data.Vector.Storable.Vector Float)),
         testGroup "Data.Vector.Storable.Vector (Double)" (testNumericStorableVector (undefined :: Data.Vector.Storable.Vector Double)),
 
+        testGroup "Data.Vector.Unboxed.Vector ()"       (testUnitUnboxedVector (undefined :: Data.Vector.Unboxed.Vector ())),
         testGroup "Data.Vector.Unboxed.Vector (Int)"    (testNumericUnboxedVector (undefined :: Data.Vector.Unboxed.Vector Int)),
-        testGroup "Data.Vector.Unboxed.Vector (Float)"  (testNumericUnboxedVector (undefined :: Data.Vector.Unboxed.Vector Float)),
         testGroup "Data.Vector.Unboxed.Vector (Double)" (testNumericUnboxedVector (undefined :: Data.Vector.Unboxed.Vector Double))
 
     ]
index 61ac473..927e9bd 100644 (file)
@@ -104,6 +104,7 @@ instance TestData ty where { \
   type EqTest ty = Property; \
   equal x y = property (x == y) }
 
+id_TestData(())
 id_TestData(Bool)
 id_TestData(Int)
 id_TestData(Float)