diff options
Diffstat (limited to 'src/LivingVillage.Desktop.Tests/DesktopTests.fs')
| -rw-r--r-- | src/LivingVillage.Desktop.Tests/DesktopTests.fs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/LivingVillage.Desktop.Tests/DesktopTests.fs b/src/LivingVillage.Desktop.Tests/DesktopTests.fs index 00e445b..b78f4e0 100644 --- a/src/LivingVillage.Desktop.Tests/DesktopTests.fs +++ b/src/LivingVillage.Desktop.Tests/DesktopTests.fs @@ -143,6 +143,23 @@ type DesktopTests () = Assert.IsTrue(day.WorldTint.G > day.WorldTint.B) [<TestMethod>] + member _.NoonLightingIsWarmthFreeWithNeutralWhiteBalance () = + let noonTick = 12L * Sim.ticksPerDay / 24L + let noon = M6Presentation.profileAtTick noonTick + + Assert.AreEqual<M6DayNight>(Day, noon.Mode) + Assert.AreEqual<float32>(0.0f, noon.SkyWarmth) + Assert.AreEqual<float32>(0.0f, noon.LanternGlow) + Assert.AreEqual<int>(0, M6Presentation.goldenVeilAlpha noonTick) + // P19 offender was the day world tint attenuating blue (255/248/224); it is neutral now. + Assert.AreEqual<int>(255, int noon.WorldTint.R) + Assert.AreEqual<int>(int noon.WorldTint.R, int noon.WorldTint.G) + Assert.AreEqual<int>(int noon.WorldTint.G, int noon.WorldTint.B) + // The sky stays a plain blue, never warm. + Assert.IsTrue(noon.Background.B > noon.Background.G) + Assert.IsTrue(noon.Background.B > noon.Background.R) + + [<TestMethod>] member _.DaylightAutoplayBootstrapStartsAtDawnAndPreservesDefaultStart () = let dawnTick = 6L * Sim.ticksPerDay / 24L let daylightWorld = WorldBootstrap.initialWorldForDaylight true 42UL Sim.npcCount |