ryujinx/Opentk
1
0
Fork 0
mirror of https://github.com/Ryujinx/Opentk.git synced 2025-02-25 22:26:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix additional compile inference errors under VS2015

Browse source
This commit is contained in:
varon 2017-06-02 13:56:11 +02:00
parent 1a50dc2eb1
commit 92d4c942f4
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/OpenTK.Tests/Vector4Tests.fs
View file

@ -101,25 +101,25 @@ module Vector4 =
let ``Indexed set operator throws exception for negative indices`` (x, y, z, w) = let ``Indexed set operator throws exception for negative indices`` (x, y, z, w) =
let mutable v = Vector4(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>] [<Property>]
let ``Indexed get operator throws exception for negative indices`` (x, y, z, w) = let ``Indexed get operator throws exception for negative indices`` (x, y, z, w) =
let mutable v = Vector4(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>] [<Property>]
let ``Indexed set operator throws exception for large indices`` (x, y, z, w) = let ``Indexed set operator throws exception for large indices`` (x, y, z, w) =
let mutable v = Vector4(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>] [<Property>]
let ``Indexed get operator throws exception for large indices`` (x, y, z, w) = let ``Indexed get operator throws exception for large indices`` (x, y, z, w) =
let mutable v = Vector4(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> |])>] [<Properties(Arbitrary = [| typeof<OpenTKGen> |])>]
module Length = module Length =