1 files changed, 34 insertions, 0 deletions
diff --git a/src/LivingVillage.Desktop.Tests/PerformanceSummaryTests.fs b/src/LivingVillage.Desktop.Tests/PerformanceSummaryTests.fs
new file mode 100644
index 0000000..cd7c3b1
--- /dev/null
+++ b/src/LivingVillage.Desktop.Tests/PerformanceSummaryTests.fs
@@ -0,0 +1,34 @@
+namespace LivingVillage.Desktop.Tests
+
+open System
+open Microsoft.VisualStudio.TestTools.UnitTesting
+open LivingVillage.Desktop
+
+[<TestClass>]
+type PerformanceSummaryTests () =
+
+    let close (expected: float) (actual: float) =
+        Assert.IsTrue(abs (expected - actual) < 0.0001, sprintf "expected %f but got %f" expected actual)
+
+    [<TestMethod>]
+    member _.SummarizeDropsWarmupAndReportsMeanMinMax () =
+        match PerformanceSummary.summarize 2 [ 10.0; 20.0; 30.0; 40.0 ] with
+        | None -> Assert.Fail("expected a summary")
+        | Some summary ->
+            Assert.AreEqual<int>(2, summary.Count)
+            close 35.0 summary.Mean
+            close 30.0 summary.Min
+            close 40.0 summary.Max
+
+    [<TestMethod>]
+    member _.SummarizeReturnsNoneWhenNoRealSampleRemains () =
+        Assert.IsTrue((PerformanceSummary.summarize 5 [ 1.0; 2.0 ]).IsNone)
+        Assert.IsTrue((PerformanceSummary.summarize 0 []).IsNone)
+
+    [<TestMethod>]
+    member _.SummarizeWithZeroWarmupKeepsEverySample () =
+        match PerformanceSummary.summarize 0 [ 60.0; 59.5; 61.0 ] with
+        | None -> Assert.Fail("expected a summary")
+        | Some summary ->
+            Assert.AreEqual<int>(3, summary.Count)
+            close 59.5 summary.Min