diff options
Diffstat (limited to 'src/LivingVillage.Desktop.Tests/M6aTests.fs')
| -rw-r--r-- | src/LivingVillage.Desktop.Tests/M6aTests.fs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/LivingVillage.Desktop.Tests/M6aTests.fs b/src/LivingVillage.Desktop.Tests/M6aTests.fs new file mode 100644 index 0000000..1cc29d4 --- /dev/null +++ b/src/LivingVillage.Desktop.Tests/M6aTests.fs @@ -0,0 +1,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 }) |