ryujinx/Opentk
1
0
Fork 0
mirror of https://github.com/Ryujinx/Opentk.git synced 2025-01-09 09:15:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

More tests.

Browse source
This commit is contained in:
Jarl Gullberg 2017-06-01 16:05:02 +02:00
parent d352853f47
commit e33c3395af
No known key found for this signature in database
GPG key ID: 750FF6F6BDA72D23
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tests/OpenTK.Tests/Vector3Tests.fs
View file

@ -4,6 +4,7 @@ open Xunit
open FsCheck open FsCheck
open FsCheck.Xunit open FsCheck.Xunit
open System open System
open System.Runtime.InteropServices
open OpenTK open OpenTK
module Vector3 = module Vector3 =
@ -678,4 +679,14 @@ module Vector3 =
let ``Unit one is correct`` = let ``Unit one is correct`` =
let unitOne = Vector3((float32)1, (float32)1, (float32)1) let unitOne = Vector3((float32)1, (float32)1, (float32)1)
Assert.Equal(Vector3.One, unitOne) Assert.Equal(Vector3.One, unitOne)
[<Properties(Arbitrary = [| typeof<OpenTKGen> |])>]
module Serialization =
//
[<Property>]
let ``The absolute size of a Vector3 is always the size of its components`` (v : Vector3) =
let expectedSize = sizeof<float32> * 3
Assert.Equal(expectedSize, Vector3.SizeInBytes)
Assert.Equal(expectedSize, Marshal.SizeOf(Vector3()))