blob: 1cc29d4e097ac8705a278382fbb5e448aa603970 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 })
|
