recordGoalieStats should bump a goalie's game count only once per game

2019-11-01 17:23:57 -04:00
parent a63d822f02
commit 4fab3ec285
3 changed files with 62 additions and 44 deletions
--- a/test/TypesSpec.hs
+++ b/test/TypesSpec.hs
@@ -764,6 +764,20 @@ bob = newPlayer 3 "Bob" "defense"
 steve :: Player
 steve = newPlayer 5 "Steve" "forward"

+instance Comparable GoalieStats where
+  compareTest actual expected = mapM_
+    (\(name, lens) -> describe name $
+      it ("should be " ++ show (expected^.lens)) $
+        actual^.lens `shouldBe` expected^.lens)
+    --  name,             lens
+    [ ( "gsGames",        gsGames        )
+    , ( "gsMinsPlayed",   gsMinsPlayed   )
+    , ( "gsGoalsAllowed", gsGoalsAllowed )
+    , ( "gsWins",         gsWins         )
+    , ( "gsLosses",       gsLosses       )
+    , ( "gsTies",         gsTies         )
+    ]
+
 instance Comparable GameState where
  compareTest actual expected =
    it ("should be " ++ show expected) $