recordGoalAssists should clear confirmGoalDataFlag

2019-10-01 00:06:54 -04:00
parent 739db189ae
commit 08c3382fe8
2 changed files with 10 additions and 5 deletions
--- a/test/ActionsSpec.hs
+++ b/test/ActionsSpec.hs
@@ -371,8 +371,9 @@ recordGoalAssistsSpec = describe "recordGoalAssists" $ do
      = newProgState
      & database.dbPlayers .~ [joe, bob, steve, dave]
      & progMode.gameStateL
-        %~ (goalBy    ?~ 0)
-        .  (assistsBy .~ [1, 2])
+        %~ (goalBy              ?~ 0)
+        .  (assistsBy           .~ [1, 2])
+        .  (confirmGoalDataFlag .~ True)
      & recordGoalAssists

  mapM_
@@ -407,6 +408,9 @@ recordGoalAssistsSpec = describe "recordGoalAssists" $ do
  it "should increment the pointsAccounted counter" $
    ps^.progMode.gameStateL.pointsAccounted `shouldBe` 1

+  it "should clear the confirmGoalDataFlag" $
+    ps^.progMode.gameStateL.confirmGoalDataFlag `shouldBe` False
+
 awardGoalSpec :: Spec
 awardGoalSpec = describe "awardGoal" $ do
  let