X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FTests%2FParasitemiaCore.Tests%2FEllipsesTests.fs;fp=Parasitemia%2FTests%2FParasitemiaCore.Tests%2FEllipsesTests.fs;h=185c43d607646e8a85042c812487f1978094ae9a;hp=0000000000000000000000000000000000000000;hb=2e029053d283ce141ce9870336cb9574ea4a203a;hpb=8866c578f1210295bdcf04c8212eae81d52d630a

diff --git a/Parasitemia/Tests/ParasitemiaCore.Tests/EllipsesTests.fs b/Parasitemia/Tests/ParasitemiaCore.Tests/EllipsesTests.fs
new file mode 100644
index 0000000..185c43d
--- /dev/null
+++ b/Parasitemia/Tests/ParasitemiaCore.Tests/EllipsesTests.fs
@@ -0,0 +1,35 @@
+namespace ParasitemiaCore.Tests
+
+open Xunit
+open Xunit.Abstractions
+
+open Swensen.Unquote
+
+open ParasitemiaCore.Ellipse
+
+type EllipsesTests (output : ITestOutputHelper) =
+
+    [<Fact>]
+    member this.``Compare the old and new ellipse construction implementations`` () =
+        let rng = System.Random (42)
+
+        let generateParameters () : float * float * float * float * float * float * float * float =
+            rng.NextDouble (),
+            rng.NextDouble (),
+            rng.NextDouble (),
+            rng.NextDouble (),
+            rng.NextDouble (),
+            rng.NextDouble (),
+            rng.NextDouble (),
+            rng.NextDouble ()
+
+        for i in 1 .. 100 do
+            let p1x, p1y, m1, p2x, p2y, m2, p3x, p3y = generateParameters ()
+            let e = ellipse p1x p1y m1 p2x p2y m2 p3x p3y
+            let e' = ellipse' p1x p1y m1 p2x p2y m2 p3x p3y
+
+            output.WriteLine (string e)
+
+            test <@ e = e' @>
+
+        ()
\ No newline at end of file