From 9724663602b4b1eb755bf334c475dc2c80e4b386 Mon Sep 17 00:00:00 2001
From: "Somhairle H. Marisol" <muqiu-han@outlook.com>
Date: Sun, 20 Sep 2026 15:14:23 +0800
Subject: feat(m6a): add save speed and day-night controls

---
 src/LivingVillage.Desktop.Tests/DesktopTests.fs           | 10 ++++++++++
 .../LivingVillage.Desktop.Tests.fsproj                    |  1 +
 src/LivingVillage.Desktop.Tests/M6aTests.fs               | 15 +++++++++++++++
 3 files changed, 26 insertions(+)
 create mode 100644 src/LivingVillage.Desktop.Tests/M6aTests.fs

(limited to 'src/LivingVillage.Desktop.Tests')

diff --git a/src/LivingVillage.Desktop.Tests/DesktopTests.fs b/src/LivingVillage.Desktop.Tests/DesktopTests.fs
index ffcc6c0..650f757 100644
--- a/src/LivingVillage.Desktop.Tests/DesktopTests.fs
+++ b/src/LivingVillage.Desktop.Tests/DesktopTests.fs
@@ -61,3 +61,13 @@ type DesktopTests () =
         Assert.IsTrue(result.Chronicle.Contains("dialogue"))
         Assert.IsTrue(result.RumorTrace.Contains("receiver=-1"))
         Assert.IsTrue(result.RumorTrace.Contains("depth=3"))
+
+    [<TestMethod>]
+    member _.DayNightStateChangesTheRenderProfile () =
+        let day = M6Presentation.profileAtTick (6L * Sim.ticksPerDay / 24L)
+        let night = M6Presentation.profileAtTick (22L * Sim.ticksPerDay / 24L)
+
+        Assert.AreEqual<M6DayNight>(Day, day.Mode)
+        Assert.AreEqual<M6DayNight>(Night, night.Mode)
+        Assert.AreNotEqual(day.Background, night.Background)
+        Assert.AreNotEqual(day.WorldTint, night.WorldTint)
diff --git a/src/LivingVillage.Desktop.Tests/LivingVillage.Desktop.Tests.fsproj b/src/LivingVillage.Desktop.Tests/LivingVillage.Desktop.Tests.fsproj
index a1cbe33..b8e2055 100644
--- a/src/LivingVillage.Desktop.Tests/LivingVillage.Desktop.Tests.fsproj
+++ b/src/LivingVillage.Desktop.Tests/LivingVillage.Desktop.Tests.fsproj
@@ -7,6 +7,7 @@
 
   <ItemGroup>
     <Compile Include="DesktopTests.fs" />
+    <Compile Include="M6aTests.fs" />
   </ItemGroup>
 
   <ItemGroup>
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
+
+[<TestClass>]
+type M6aDesktopTests () =
+
+    [<TestMethod>]
+    member _.SpeedLabelsExposePauseAndThreeRunningModes () =
+        Assert.AreEqual<string>("PAUSED", M6Presentation.clockLabel { Paused = true; Speed = OneX })
+        Assert.AreEqual<string>("1X", M6Presentation.clockLabel { Paused = false; Speed = OneX })
+        Assert.AreEqual<string>("2X", M6Presentation.clockLabel { Paused = false; Speed = TwoX })
+        Assert.AreEqual<string>("5X", M6Presentation.clockLabel { Paused = false; Speed = FiveX })
-- 
cgit v1.2.3