summaryrefslogtreecommitdiff
path: root/src/LivingVillage.Desktop.Tests/M6aTests.fs
blob: 04920d404d4587728701bd86b2364563cd1cda57 (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>("暂停", M6Presentation.clockLabel { Paused = true; Speed = OneX })
        Assert.AreEqual<string>("1倍速", M6Presentation.clockLabel { Paused = false; Speed = OneX })
        Assert.AreEqual<string>("2倍速", M6Presentation.clockLabel { Paused = false; Speed = TwoX })
        Assert.AreEqual<string>("5倍速", M6Presentation.clockLabel { Paused = false; Speed = FiveX })