diff options
Diffstat (limited to 'src/LivingVillage.Desktop.Tests')
| -rw-r--r-- | src/LivingVillage.Desktop.Tests/PrototypeTests.fs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/LivingVillage.Desktop.Tests/PrototypeTests.fs b/src/LivingVillage.Desktop.Tests/PrototypeTests.fs index 450e94b..5a40868 100644 --- a/src/LivingVillage.Desktop.Tests/PrototypeTests.fs +++ b/src/LivingVillage.Desktop.Tests/PrototypeTests.fs @@ -728,6 +728,15 @@ type PrototypeTests () = Assert.AreEqual<float32>(1.0f, (atHour 0).LanternGlow) [<TestMethod>] + member _.TitleEntranceProgressIsDeterministicAndCompleteAfterTwoSeconds () = + // 120 frames at the fixed 60Hz step = 2s entrance, pure function of frame count. + Assert.AreEqual<float32>(1.0f, TitleScreen.entranceProgress 0L) + Assert.AreEqual<float32>(0.5f, TitleScreen.entranceProgress 60L) + Assert.AreEqual<float32>(0.0f, TitleScreen.entranceProgress 120L) + Assert.AreEqual<float32>(0.0f, TitleScreen.entranceProgress 1000L) + Assert.AreEqual<float32>(TitleScreen.entranceProgress 37L, TitleScreen.entranceProgress 37L) + + [<TestMethod>] member _.WorldPanelDoesNotRenderA永久KeyList () = let world = Sim.initialWorldN 42UL 0 let lines = M5Interaction.panelLines world M5Interaction.initial |