From b83174af94dedd4aac20e6336ac6fa01f75516c5 Mon Sep 17 00:00:00 2001 From: Jarl Gullberg Date: Wed, 31 May 2017 20:21:16 +0200 Subject: [PATCH] Added additional check against nonmatrix objects. --- tests/OpenTK.Tests/Matrix4Tests.fs | 6 +++++- tests/OpenTK.Tests/Vector3Tests.fs | 4 ++-- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/tests/OpenTK.Tests/Matrix4Tests.fs b/tests/OpenTK.Tests/Matrix4Tests.fs index 8153abff..a37cd92c 100644 --- a/tests/OpenTK.Tests/Matrix4Tests.fs +++ b/tests/OpenTK.Tests/Matrix4Tests.fs @@ -92,13 +92,17 @@ module Matrix4 = module Equality = // [] - let ``Sixteen value constructor sets all components to the correct values`` (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p) = + let ``Two matrices with identical values are equal`` (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p) = let A = Matrix4(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p) let B = Matrix4(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p) let equality = A = B Assert.True(equality) + [] + let ``A matrix is not equal to an object which is not a matrix`` (a : Matrix4, b : Vector3) = + Assert.False(a.Equals(b)) + [ |])>] module Multiplication = // diff --git a/tests/OpenTK.Tests/Vector3Tests.fs b/tests/OpenTK.Tests/Vector3Tests.fs index 77bde230..9d643543 100644 --- a/tests/OpenTK.Tests/Vector3Tests.fs +++ b/tests/OpenTK.Tests/Vector3Tests.fs @@ -113,13 +113,13 @@ module Vector3 = let ``Normalization of instance, creating a new vector, works`` (a, b, c) = let v = Vector3(a, b, c) let l = v.Length - + let norm = v.Normalized() Assert.ApproximatelyEqual(v.X / l, norm.X) Assert.ApproximatelyEqual(v.Y / l, norm.Y) Assert.ApproximatelyEqual(v.Z / l, norm.Z) - + [] let ``Normalization of instance works`` (a, b, c) = let v = Vector3(a, b, c)