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

7
src/Mtlstats/Actions.hs
View File

@@ -161,9 +161,10 @@ recordGoalAssists ps = fromMaybe ps $ do
& awardGoal goalId & awardGoal goalId
& (\s -> foldr awardAssist s assistIds) & (\s -> foldr awardAssist s assistIds)
& progMode.gameStateL & progMode.gameStateL
%~ (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

8
test/ActionsSpec.hs
View File

@@ -371,8 +371,9 @@ recordGoalAssistsSpec = describe "recordGoalAssists" $ do
= newProgState = newProgState
& database.dbPlayers .~ [joe, bob, steve, dave] & database.dbPlayers .~ [joe, bob, steve, dave]
& 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