Improve vector test organization

tests/OpenTK.Tests/Vectors.fs

@@ -36,8 +36,9 @@ type VectorGen =
     static member Vector3() = Generators.Vec3
     static member Vector4() = Generators.Vec4
 
-[<Properties(Arbitrary = [| typeof<VectorGen> |])>]
-module ``Vector2 tests`` = 
+module Vector2 = 
+    [<Properties(Arbitrary = [| typeof<VectorGen> |])>]
+    module ``Simple Properties`` = 
         //
         [<Property>]
         let ``Vector equality is by component`` (a : Vector2,b : Vector2) = 
@@ -49,6 +50,9 @@ module ``Vector2 tests`` =
             //
             Assert.True(a.Length >= 0.0f)
     
+    [<Properties(Arbitrary = [| typeof<VectorGen> |])>]
+    module Addition = 
+        //
         [<Property>]
         let ``Vector addition is the same as component addition`` (a : Vector2,b : Vector2) = 
             let c = a + b
@@ -67,6 +71,9 @@ module ``Vector2 tests`` =
             let r2 = a + (b + c)
             Assert.Equal(r1,r2)
     
+    [<Properties(Arbitrary = [| typeof<VectorGen> |])>]
+    module Multiplication = 
+        //
         [<Property>]
         let ``Vector multiplication is the same as component multiplication`` (a : Vector2,b : Vector2) = 
             let c = a * b
@@ -84,3 +91,22 @@ module ``Vector2 tests`` =
             let r = a * f
             Assert.Equal(a.X * f,r.X)
             Assert.Equal(a.Y * f,r.Y)
+    
+    [<Properties(Arbitrary = [| typeof<VectorGen> |])>]
+    module Subtraction = 
+        //
+        [<Property>]
+        let ``Vector subtraction is the same as component subtraction`` (a : Vector2,b : Vector2) = 
+            let c = a - b
+            Assert.Equal(a.X - b.X,c.X)
+            Assert.Equal(a.Y - b.Y,c.Y)
+    
+    [<Properties(Arbitrary = [| typeof<VectorGen> |])>]
+    module Division = 
+        //
+        [<Property>]
+        let ``Vector-float division is the same as component-float division`` (a : Vector2,f : float32) = 
+            if f <> 0.0f then 
+                let r = a / f
+                Assert.Equal(a.X / f,r.X)
+                Assert.Equal(a.Y / f,r.Y)