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 })