From 92d4c942f40dc4a483010af3d33159491a721d9a Mon Sep 17 00:00:00 2001
From: varon <varon@users.noreply.github.com>
Date: Fri, 2 Jun 2017 13:56:11 +0200
Subject: [PATCH] Fix additional compile inference errors under VS2015

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

diff --git a/tests/OpenTK.Tests/Vector4Tests.fs b/tests/OpenTK.Tests/Vector4Tests.fs
index 0cf78ad..4a6fada 100644
--- a/tests/OpenTK.Tests/Vector4Tests.fs
+++ b/tests/OpenTK.Tests/Vector4Tests.fs
@@ -101,25 +101,25 @@ module Vector4 =
         let ``Indexed set operator throws exception for negative indices`` (x, y, z, w) =
             let mutable v = Vector4(x, y, z, w)
 
-            (fun() -> v.[-1] <- x) |> Assert.Throws<IndexOutOfRangeException> |> ignore
+            (fun() -> v.[-1] <- x) |> Assert.ThrowsIndexExn
 
         [<Property>]
         let ``Indexed get operator throws exception for negative indices`` (x, y, z, w) =
             let mutable v = Vector4(x, y, z, w)
 
-            (fun() -> v.[-1] |> ignore) |> Assert.Throws<IndexOutOfRangeException> |> ignore
+            (fun() -> v.[-1] |> ignore) |> Assert.ThrowsIndexExn
 
         [<Property>]
         let ``Indexed set operator throws exception for large indices`` (x, y, z, w) =
             let mutable v = Vector4(x, y, z, w)
 
-            (fun() -> v.[4] <- x) |> Assert.Throws<IndexOutOfRangeException> |> ignore
+            (fun() -> v.[4] <- x) |> Assert.ThrowsIndexExn
 
         [<Property>]
         let ``Indexed get operator throws exception for large indices`` (x, y, z, w) =
             let mutable v = Vector4(x, y, z, w)
 
-            (fun() -> v.[4] |> ignore) |> Assert.Throws<IndexOutOfRangeException> |> ignore
+            (fun() -> v.[4] |> ignore) |> Assert.ThrowsIndexExn
 
     [<Properties(Arbitrary = [| typeof<OpenTKGen> |])>]
     module Length =
-- 
2.7.4