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

bugfix: increment game number in startNewGame

This commit is contained in:
Jonathan Lamothe 2019-08-23 09:32:21 -04:00
parent c95520832d
commit 02f04a3d6c
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Mtlstats/Actions.hs
View File

@ -47,7 +47,7 @@ resetYtd
startNewGame :: ProgState -> ProgState
startNewGame
= (progMode .~ NewGame newGameState)
. (database . dbGames .~ 0)
. (database . dbGames %~ succ)
-- | Sets the game type to 'HomeGame'
setHomeGame :: ProgState -> ProgState

9
test/ActionsSpec.hs
View File

@ -52,13 +52,10 @@ startNewSeasonSpec = describe "startNewSeason" $ do
startNewGameSpec :: Spec
startNewGameSpec = describe "startNewGame" $ do
let
s = newProgState
& database . dbGames .~ 1
& startNewGame
let s = startNewGame newProgState
it "should set the number of games to 0" $
s ^. database . dbGames `shouldBe` 0
it "should increment the number of games" $
s ^. database . dbGames `shouldBe` 1
it "should set the mode to NewGame" $
s ^. progMode `shouldBe` NewGame newGameState