From 9724663602b4b1eb755bf334c475dc2c80e4b386 Mon Sep 17 00:00:00 2001 From: "Somhairle H. Marisol" Date: Sun, 20 Sep 2026 15:14:23 +0800 Subject: feat(m6a): add save speed and day-night controls --- src/LivingVillage.Desktop.Tests/M6aTests.fs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 src/LivingVillage.Desktop.Tests/M6aTests.fs (limited to 'src/LivingVillage.Desktop.Tests/M6aTests.fs') diff --git a/src/LivingVillage.Desktop.Tests/M6aTests.fs b/src/LivingVillage.Desktop.Tests/M6aTests.fs new file mode 100644 index 0000000..1cc29d4 --- /dev/null +++ b/src/LivingVillage.Desktop.Tests/M6aTests.fs @@ -0,0 +1,15 @@ +namespace LivingVillage.Desktop.Tests + +open Microsoft.VisualStudio.TestTools.UnitTesting +open LivingVillage.Kernel +open LivingVillage.Desktop + +[] +type M6aDesktopTests () = + + [] + member _.SpeedLabelsExposePauseAndThreeRunningModes () = + Assert.AreEqual("PAUSED", M6Presentation.clockLabel { Paused = true; Speed = OneX }) + Assert.AreEqual("1X", M6Presentation.clockLabel { Paused = false; Speed = OneX }) + Assert.AreEqual("2X", M6Presentation.clockLabel { Paused = false; Speed = TwoX }) + Assert.AreEqual("5X", M6Presentation.clockLabel { Paused = false; Speed = FiveX }) -- cgit v1.2.3