From: Jarl Gullberg <jarl.gullberg@gmail.com>
Date: Thu, 1 Jun 2017 14:07:21 +0000 (+0200)
Subject: Corrected row variables.
X-Git-Tag: v3.0.0~107^2~1^2~11
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3c2cda885b80695a65e8149428e3434e94fa2d27;p=platform%2Fcore%2Fcsapi%2Fopentk.git

Corrected row variables.
---

diff --git a/tests/OpenTK.Tests/Matrix4Tests.fs b/tests/OpenTK.Tests/Matrix4Tests.fs
index 9c453b1..1a0eabc 100644
--- a/tests/OpenTK.Tests/Matrix4Tests.fs
+++ b/tests/OpenTK.Tests/Matrix4Tests.fs
@@ -165,9 +165,9 @@ module Matrix4 =
             let AScaled = A * scalar
             
             Assert.Equal(R1, AScaled.Row0)
-            Assert.Equal(R1, AScaled.Row1)
-            Assert.Equal(R1, AScaled.Row2)
-            Assert.Equal(R1, AScaled.Row3)
+            Assert.Equal(R2, AScaled.Row1)
+            Assert.Equal(R3, AScaled.Row2)
+            Assert.Equal(R4, AScaled.Row3)
             
         [<Property>]
         let ``Static method matrix multiplication by scalar is the same as row multiplication by scalar`` (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, scalar : float32) =
@@ -181,9 +181,9 @@ module Matrix4 =
             let AScaled = Matrix4.Mult(A, scalar)
             
             Assert.Equal(R1, AScaled.Row0)
-            Assert.Equal(R1, AScaled.Row1)
-            Assert.Equal(R1, AScaled.Row2)
-            Assert.Equal(R1, AScaled.Row3)
+            Assert.Equal(R2, AScaled.Row1)
+            Assert.Equal(R3, AScaled.Row2)
+            Assert.Equal(R4, AScaled.Row3)
             
         [<Property>]
         let ``Static method matrix multiplication by reference by scalar is the same as row multiplication by scalar`` (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, scalar : float32) =
@@ -197,9 +197,9 @@ module Matrix4 =
             let AScaled = Matrix4.Mult(ref A, scalar)
             
             Assert.Equal(R1, AScaled.Row0)
-            Assert.Equal(R1, AScaled.Row1)
-            Assert.Equal(R1, AScaled.Row2)
-            Assert.Equal(R1, AScaled.Row3)
+            Assert.Equal(R2, AScaled.Row1)
+            Assert.Equal(R3, AScaled.Row2)
+            Assert.Equal(R4, AScaled.Row3)
              
             
     [<Properties(Arbitrary = [| typeof<OpenTKGen> |])>]