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

recordGoalAssists should clear confirmGoalDataFlag

Browse Source
This commit is contained in:
Jonathan Lamothe
2019-10-01 00:06:54 -04:00
parent 739db189ae
commit 08c3382fe8
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/Mtlstats/Actions.hs
View File

@@ -164,6 +164,7 @@ recordGoalAssists ps = fromMaybe ps $ do
%~ (goalBy .~ Nothing) %~ (goalBy .~ Nothing)
. (assistsBy .~ []) . (assistsBy .~ [])
. (pointsAccounted %~ succ) . (pointsAccounted %~ succ)
. (confirmGoalDataFlag .~ False)
-- | Awards a goal to a player -- | Awards a goal to a player
awardGoal awardGoal

4
test/ActionsSpec.hs
View File

@@ -373,6 +373,7 @@ recordGoalAssistsSpec = describe "recordGoalAssists" $ do
& progMode.gameStateL & progMode.gameStateL
%~ (goalBy ?~ 0) %~ (goalBy ?~ 0)
. (assistsBy .~ [1, 2]) . (assistsBy .~ [1, 2])
. (confirmGoalDataFlag .~ True)
& recordGoalAssists & recordGoalAssists
mapM_ mapM_
@@ -407,6 +408,9 @@ recordGoalAssistsSpec = describe "recordGoalAssists" $ do
it "should increment the pointsAccounted counter" $ it "should increment the pointsAccounted counter" $
ps^.progMode.gameStateL.pointsAccounted `shouldBe` 1 ps^.progMode.gameStateL.pointsAccounted `shouldBe` 1
it "should clear the confirmGoalDataFlag" $
ps^.progMode.gameStateL.confirmGoalDataFlag `shouldBe` False
awardGoalSpec :: Spec awardGoalSpec :: Spec
awardGoalSpec = describe "awardGoal" $ do awardGoalSpec = describe "awardGoal" $ do
let let