implemented goalieSummary

test/TypesSpec.hs

@@ -67,6 +67,7 @@ spec = describe "Mtlstats.Types" $ do
   addPlayerStatsSpec
   goalieSearchSpec
   goalieSearchExactSpec
+  goalieSummarySpec
   Menu.spec
 
 playerSpec :: Spec
@@ -699,6 +700,11 @@ goalieSearchExactSpec = describe "goalieSearchExact" $ do
     it "should return Nothing" $
       goalieSearchExact "Greg" goalies `shouldBe` Nothing
 
+goalieSummarySpec :: Spec
+goalieSummarySpec = describe "goalieSummary" $
+  it "should provide a summary string" $
+    goalieSummary (newGoalie 2 "Joe") `shouldBe` "Joe (2)"
+
 joe :: Player
 joe = newPlayer 2 "Joe" "center"