1
namespace ParasitemiaCore.Tests
4 open Xunit.Abstractions
8 open ParasitemiaCore.Ellipse
10 type EllipsesTests (output
: ITestOutputHelper) =
13 member this
.``
Compare the old
and new ellipse
construction implementations``
() =
14 let rng = System.Random (42)
16 let generateParameters () : float * float * float * float * float * float * float * float =
27 let p1x, p1y
, m1
, p2x
, p2y
, m2
, p3x
, p3y
= generateParameters ()
28 let e = ellipse
p1x p1y m1 p2x p2y m2 p3x p3y
29 let e' = ellipse' p1x p1y m1 p2x p2y m2 p3x p3y
31 output
.WriteLine (string e)