From 5191491cdb042b5e3924df02108e8f12b2cf5021 Mon Sep 17 00:00:00 2001
From: Jarl Gullberg <jarl.gullberg@gmail.com>
Date: Fri, 2 Jun 2017 20:34:13 +0200
Subject: [PATCH] Fixed MagnitudeMin test.

---
 tests/OpenTK.Tests/Vector4Tests.fs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/OpenTK.Tests/Vector4Tests.fs b/tests/OpenTK.Tests/Vector4Tests.fs
index 90babe0..9221ada 100644
--- a/tests/OpenTK.Tests/Vector4Tests.fs
+++ b/tests/OpenTK.Tests/Vector4Tests.fs
@@ -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) =
-- 
2.7.4