don't hang on goalie selection

2019-11-04 05:58:39 -05:00
parent c6c461f584
commit 405ca1c5c7
2 changed files with 10 additions and 4 deletions
--- a/test/Actions/GoalieInputSpec.hs
+++ b/test/Actions/GoalieInputSpec.hs
@@ -245,7 +245,10 @@ setGameGoalieSpec = describe "setGameGoalie" $ let
              [ ( "game stats",     game,     goalieStats gWins   gLosses   gTies   )
              , ( "YTD stats",      ytd,      goalieStats ytdWins ytdLosses ytdTies )
              , ( "lifetime stats", lifetime, goalieStats ltWins  ltLosses  ltTies  )
-              ])
+              ]
+
+            it "should set the gameGoalieAssigned flag" $
+              progState^.progMode.gameStateL.gameGoalieAssigned `shouldBe` True)
        [ ( "checking Bob", 0, bobData )
        , ( "checking Joe", 1, joeData )
        ])