From: Jarl Gullberg <jarl.gullberg@gmail.com>
Date: Wed, 31 May 2017 18:21:16 +0000 (+0200)
Subject: Added additional check against nonmatrix objects.
X-Git-Tag: v3.0.0~107^2~1^2~23
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b83174af94dedd4aac20e6336ac6fa01f75516c5;p=platform%2Fcore%2Fcsapi%2Fopentk.git

Added additional check against nonmatrix objects.
---

diff --git a/tests/OpenTK.Tests/Matrix4Tests.fs b/tests/OpenTK.Tests/Matrix4Tests.fs
index 8153abf..a37cd92 100644
--- a/tests/OpenTK.Tests/Matrix4Tests.fs
+++ b/tests/OpenTK.Tests/Matrix4Tests.fs
@@ -92,13 +92,17 @@ module Matrix4 =
     module Equality = 
         //
         [<Property>]
-        let ``Sixteen value constructor sets all components to the correct values`` (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p) =
+        let ``Two matrices with identical values are equal`` (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p) =
             let A = Matrix4(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p)
             let B = Matrix4(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p)
             let equality = A = B
             
             Assert.True(equality)
             
+        [<Property>]
+        let ``A matrix is not equal to an object which is not a matrix`` (a : Matrix4, b : Vector3) =
+            Assert.False(a.Equals(b))
+
     [<Properties(Arbitrary = [| typeof<OpenTKGen> |])>]
     module Multiplication = 
         //
diff --git a/tests/OpenTK.Tests/Vector3Tests.fs b/tests/OpenTK.Tests/Vector3Tests.fs
index 77bde23..9d64354 100644
--- a/tests/OpenTK.Tests/Vector3Tests.fs
+++ b/tests/OpenTK.Tests/Vector3Tests.fs
@@ -113,13 +113,13 @@ module Vector3 =
         let ``Normalization of instance, creating a new vector, works`` (a, b, c) = 
             let v = Vector3(a, b, c)
             let l = v.Length
-
+            
             let norm = v.Normalized()
 
             Assert.ApproximatelyEqual(v.X / l, norm.X)
             Assert.ApproximatelyEqual(v.Y / l, norm.Y)
             Assert.ApproximatelyEqual(v.Z / l, norm.Z)
-            
+
         [<Property>]
         let ``Normalization of instance works`` (a, b, c) = 
             let v = Vector3(a, b, c)