Fixed MagnitudeMin test.
authorJarl Gullberg <jarl.gullberg@gmail.com>
Fri, 2 Jun 2017 18:34:13 +0000 (20:34 +0200)
committerJarl Gullberg <jarl.gullberg@gmail.com>
Fri, 2 Jun 2017 18:34:13 +0000 (20:34 +0200)
tests/OpenTK.Tests/Vector4Tests.fs

index 90babe0..9221ada 100644 (file)
@@ -705,8 +705,8 @@ module Vector4 =
                 let v1ShorterThanv2 = l1 < l2
                 Assert.True(v1ShorterThanv2)
             else
-                let v2ShorterThanv1 = l2 < l1
-                Assert.True(v2ShorterThanv1)
+                let v2ShorterThanOrEqualTov1 = l2 <= l1
+                Assert.True(v2ShorterThanOrEqualTov1)
 
         [<Property>]
         let ``MagnitudeMax selects the vector with equal or greater magnitude given two vectors`` (v1 : Vector4, v2: Vector4) =