diff options
| author | Somhairle H. Marisol <[email protected]> | 2026-09-22 00:35:03 +0800 |
|---|---|---|
| committer | Somhairle H. Marisol <[email protected]> | 2026-09-22 00:35:03 +0800 |
| commit | 1cef3b1544ff8574c7b56bc1a84e3be0846a9b22 (patch) | |
| tree | 5aa705bf3e9cfe82e5e3637cdc699bc52f93c559 /src/LivingVillage.Desktop.Tests/M6bTests.fs | |
| parent | 1f1c502ba750c4c55ac2aca28eacafcd0c3ae932 (diff) | |
| parent | 81a84f9f86d59387a349caa339148c7a7a6d1e72 (diff) | |
| download | living-village-1cef3b1544ff8574c7b56bc1a84e3be0846a9b22.tar.gz | |
merge: P16 启动画面/开始界面/HUD 精美化（独立复验全绿 Desktop 106/Kernel 89）
Diffstat (limited to 'src/LivingVillage.Desktop.Tests/M6bTests.fs')
| -rw-r--r-- | src/LivingVillage.Desktop.Tests/M6bTests.fs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/LivingVillage.Desktop.Tests/M6bTests.fs b/src/LivingVillage.Desktop.Tests/M6bTests.fs index 5aea9bd..1b2ef70 100644 --- a/src/LivingVillage.Desktop.Tests/M6bTests.fs +++ b/src/LivingVillage.Desktop.Tests/M6bTests.fs @@ -13,8 +13,9 @@ type M6bMenuTests () = Assert.AreEqual<MenuPage>(MainMenu, state.Page) Assert.AreEqual<MenuItem list>( - [ NewGameItem; LoadItem; SettingsItem; ControlsItem; ExitItem ], + [ NewGameItem; LoadItem; ExitItem ], MenuState.items state) + Assert.AreEqual<string list>([ "开始"; "读档"; "退出" ], MenuState.items state |> List.map MenuState.itemLabel) Assert.AreEqual<int>(0, state.Selected) [<TestMethod>] @@ -32,7 +33,7 @@ type M6bMenuTests () = [<TestMethod>] member _.SettingsCanSelectEveryExistingSimulationMode () = let initial = MenuState.create SimulationControl.initial false - let settings, _ = MenuState.update Confirm (MenuState.move Down (MenuState.move Down initial)) + let settings = MenuState.openSettings initial let oneX, oneXCommand = MenuState.update Confirm settings let twoX, twoXCommand = MenuState.update Confirm (MenuState.move Down settings) let fiveX, fiveXCommand = MenuState.update Confirm (MenuState.move Down (MenuState.move Down settings)) |