Added extra filtering to generated Quaternions.

2017-06-02 10:39:13 +02:00 · 2017-06-02 10:39:13 +02:00 · c12eefa0cf
commit c12eefa0cf
parent c64327b8a9
1 changed files with 1 additions and 0 deletions
--- a/tests/OpenTK.Tests/Generators.fs
+++ b/tests/OpenTK.Tests/Generators.fs
@ -40,6 +40,7 @@ module private Generators =
        singleArb
        |> Gen.three
        |> Gen.map (fun (x,y,z) -> Quaternion(x,y,z,0.0f) |> Quaternion.Normalize)
+        |> Gen.filter (fun q -> not <| (Single.IsNaN q.Length || Single.IsInfinity q.Length ))
        |> Arb.fromGen

    let mat2 =