implemented goalieIsActive

src/Mtlstats/Types.hs

@@ -989,4 +989,4 @@ goalieSummary g = g^.gName ++ " (" ++ show (g^.gNumber) ++ ")"
 -- | Determines whether or not a goalie has been active in the current
 -- season
 goalieIsActive :: Goalie -> Bool
-goalieIsActive = undefined
+goalieIsActive g = g^.gYtd.gsMinsPlayed /= 0

test/TypesSpec.hs

@@ -78,6 +78,7 @@ spec = describe "Mtlstats.Types" $ do
   goalieSearchSpec
   goalieSearchExactSpec
   goalieSummarySpec
+  goalieIsActiveSpec
   Menu.spec
 
 playerSpec :: Spec
@@ -753,6 +754,24 @@ goalieSummarySpec = describe "goalieSummary" $
   it "should provide a summary string" $
     goalieSummary (newGoalie 2 "Joe") `shouldBe` "Joe (2)"
 
+goalieIsActiveSpec :: Spec
+goalieIsActiveSpec = describe "goalieIsActive" $ mapM_
+  (\(label, input, expected) -> context label $
+    it ("should be " ++ show expected) $
+      goalieIsActive input `shouldBe` expected)
+
+  --  label,      input,    expected
+  [ ( "inactive", inactive, False    )
+  , ( "active",   active,   True     )
+  ]
+
+  where
+    inactive = newGoalie 1 "Joe"
+      & gLifetime.gsMinsPlayed .~ 1
+
+    active = inactive
+      & gYtd.gsMinsPlayed .~ 1
+
 joe :: Player
 joe = newPlayer 2 "Joe" "center"