fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

implemented gameWon

Browse Source
This commit is contained in:
Jonathan Lamothe
2019-08-28 13:02:50 -04:00
parent c15ad6a477
commit 7ee53ee8c1
2 changed files with 36 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
test/TypesSpec.hs
View File

@@ -43,6 +43,7 @@ spec = describe "Mtlstats.Types" $ do
gameStateLSpec
teamScoreSpec
otherScoreSpec
gameWonSpec
gameTiedSpec
pPointsSpec
Menu.spec
@@ -244,6 +245,34 @@ dbJSON = Object $ HM.fromList
, ( "away_game_stats", gameStatsJSON 2 )
]
gameWonSpec :: Spec
gameWonSpec = describe "gameWon" $ mapM_
(\(t, h, a, expected) -> let
desc = "game type: " ++ show t ++
", home score: " ++ show h ++
", away score: " ++ show a
gs = newGameState
& gameType .~ t
& homeScore .~ h
& awayScore .~ a
in context desc $
it ("should be " ++ show expected) $
gameWon gs `shouldBe` expected)
-- gameType, homeScore, awayScore, expected
[ ( Just HomeGame, Just 1, Just 1, False )
, ( Just HomeGame, Just 1, Just 2, False )
, ( Just HomeGame, Just 2, Just 1, True )
, ( Just AwayGame, Just 1, Just 1, False )
, ( Just AwayGame, Just 1, Just 2, True )
, ( Just AwayGame, Just 2, Just 1, False )
, ( Nothing, Just 1, Just 2, False )
, ( Just HomeGame, Nothing, Just 1, False )
, ( Just AwayGame, Nothing, Just 1, False )
, ( Just HomeGame, Just 1, Nothing, False )
, ( Just AwayGame, Just 1, Nothing, False )
, ( Nothing, Nothing, Nothing, False )
]
gameTiedSpec = describe "gameTied" $ mapM_
(\(home, away, expected) -> let
desc = "home score: " ++ show home ++