implemented gameStateL

2019-08-28 01:04:03 -04:00
parent e36df4348a
commit d7dd682532
2 changed files with 22 additions and 0 deletions
--- a/test/TypesSpec.hs
+++ b/test/TypesSpec.hs
@@ -41,6 +41,7 @@ spec = describe "Mtlstats.Types" $ do
  gameStatsSpec
  databaseSpec
  pPointsSpec
+  gameStateLSpec
  gameTypeLSpec
  otherTeamLSpec
  homeScoreLSpec
@@ -80,6 +81,19 @@ pPointsSpec = describe "pPoints" $ mapM_
  , ( 2,     3,       5      )
  ]

+gameStateLSpec :: Spec
+gameStateLSpec = describe "gameStateL" $ lensSpec gameStateL
+  -- getters
+  [ ( MainMenu,              newGameState )
+  , ( NewGame $ gs HomeGame, gs HomeGame  )
+  ]
+  -- setters
+  [ ( MainMenu,              gs HomeGame  )
+  , ( NewGame $ gs HomeGame, gs AwayGame  )
+  , ( NewGame $ gs HomeGame, newGameState )
+  ]
+  where gs t = newGameState & gameType ?~ t
+
 gameTypeLSpec :: Spec
 gameTypeLSpec = describe "gameTypeL" $ lensSpec gameTypeL
  [ ( MainMenu,   Nothing       )