1 files changed, 50 insertions, 0 deletions
diff --git a/src/LivingVillage.Desktop.Tests/DesktopTests.fs b/src/LivingVillage.Desktop.Tests/DesktopTests.fs
index 5f2d6df..00e445b 100644
--- a/src/LivingVillage.Desktop.Tests/DesktopTests.fs
+++ b/src/LivingVillage.Desktop.Tests/DesktopTests.fs
@@ -277,3 +277,53 @@ type OccupationFlowTests () =
         Assert.AreEqual<Occupation.DailyTask option>(
             Some (Occupation.dailyTaskOf 42UL (Occupation.occupationSeedOf Occupation.Farmer) 1L Occupation.Farmer).Value,
             day1.Today)
+
+    [<TestMethod>]
+    member _.ChosenOccupationFirstDayTaskReachesDoneThroughItsSignal () =
+        // 既有事件通道：交易/对话模板由 InteractionEvent 经 signalOfInteraction 推进；
+        // 到达瓦片/夜水边/观察由调用方折叠为信号（Sim.step 不感知）。
+        let eventOf (template: Occupation.TaskTemplateId) : Sim.InteractionEvent option =
+            match template with
+            | Occupation.DeliverGrain ->
+                Some { Tick = 0L; Kind = Sim.TradeEvent(NpcId 1, Sim.playerId, Food, 1, 1.0f) }
+            | Occupation.SellFish ->
+                Some { Tick = 0L; Kind = Sim.TradeEvent(NpcId 1, Sim.playerId, Fish, 1, 1.0f) }
+            | Occupation.Resell ->
+                Some { Tick = 0L; Kind = Sim.TradeEvent(NpcId 1, Sim.playerId, Spice, 1, 1.0f) }
+            | Occupation.BuyGoods ->
+                Some { Tick = 0L; Kind = Sim.TradeEvent(Sim.playerId, NpcId 1, Spice, 1, 1.0f) }
+            | Occupation.HelpWork
+            | Occupation.MarketInquiry
+            | Occupation.ReasonDebate ->
+                Some
+                    { Tick = 0L
+                      Kind =
+                        Sim.DialogueEvent
+                            { Tick = 0L
+                              Actor = Sim.playerId
+                              Target = NpcId 0
+                              Intent = SmallTalk
+                              Response = Friendly
+                              Valence = 0.3f } }
+            | Occupation.TillSoil
+            | Occupation.NightCatch
+            | Occupation.ObserveNotes -> None
+        let foldedSignal (template: Occupation.TaskTemplateId) : Occupation.TaskSignal =
+            match template with
+            | Occupation.TillSoil -> Occupation.ArrivedAt(52, 38)
+            | Occupation.NightCatch -> Occupation.NightAtWater
+            | Occupation.ObserveNotes -> Occupation.Observed
+            | _ -> failwith "event-backed template"
+        for kind in Occupation.all do
+            let state = WorldBootstrap.occupationStateFor 42UL kind 0L
+            let offered = state.Today.Value
+            Assert.AreEqual<Occupation.TaskState>(Occupation.Offered, offered.State)
+            Assert.IsTrue(Occupation.taskPoolOf kind |> List.contains offered.TemplateId)
+            let active = { state with Today = Some(Occupation.acceptTask offered) }
+            let completed =
+                match eventOf offered.TemplateId with
+                | Some event -> Occupation.advanceTask event active
+                | None ->
+                    { active with
+                        Today = active.Today |> Option.map (Occupation.applySignal (foldedSignal offered.TemplateId)) }
+            Assert.AreEqual<Occupation.TaskState>(Occupation.Done, completed.Today.Value.State)