From: Jarl Gullberg <jarl.gullberg@gmail.com>
Date: Wed, 31 May 2017 19:40:44 +0000 (+0200)
Subject: Added Vector4 constructor test.
X-Git-Tag: v3.0.0~107^2~1^2~20
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=03f916abbb430807e90627bad6d61a24c27c99e2;p=platform%2Fcore%2Fcsapi%2Fopentk.git

Added Vector4 constructor test.
---

diff --git a/tests/OpenTK.Tests/Vector3Tests.fs b/tests/OpenTK.Tests/Vector3Tests.fs
index 4828f86..483c759 100644
--- a/tests/OpenTK.Tests/Vector3Tests.fs
+++ b/tests/OpenTK.Tests/Vector3Tests.fs
@@ -51,6 +51,19 @@ module Vector3 =
             Assert.Equal(b, v2.Y)
             Assert.Equal(c, v2.Z)
             
+        [<Property>]
+        let ``Vector4 value constructor sets all components to the correct values`` (a, b, c, d) = 
+            let v1 = Vector4(a, b, c, d)
+            let v2 = Vector3(v1)
+
+            Assert.Equal(v1.X, v2.X)
+            Assert.Equal(v1.Y, v2.Y)
+            Assert.Equal(v1.Z, v2.Z)
+
+            Assert.Equal(a, v2.X)
+            Assert.Equal(b, v2.Y)
+            Assert.Equal(c, v2.Z)
+            
     [<Properties(Arbitrary = [| typeof<OpenTKGen> |])>]
     module Indexing = 
         //