mtlstats/test/Helpers/GoalieSpec.hs

{-

mtlstats
Copyright (C) 1984, 1985, 2019, 2020, 2021 Rhéal Lamothe
<rheal.lamothe@gmail.com>

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or (at
your option) any later version.

This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <https://www.gnu.org/licenses/>.

-}

module Helpers.GoalieSpec (spec) where

import Lens.Micro ((&), (.~), (%~))
import Test.Hspec (Spec, context, describe, it, shouldBe)

import Mtlstats.Helpers.Goalie
import Mtlstats.Types

spec :: Spec
spec = describe "Goalie" $ do
  goalieDetailsSpec
  goalieNameSpec

goalieDetailsSpec :: Spec
goalieDetailsSpec = describe "goalieDetails" $ let
  input = newGoalie 1 "Joe"
    & gRookie .~ True
    & gYtd
      %~ ( gsGames        .~ 2  )
      .  ( gsMinsPlayed   .~ 3  )
      .  ( gsGoalsAllowed .~ 4  )
      .  ( gsShutouts     .~ 5  )
      .  ( gsWins         .~ 6  )
      .  ( gsLosses       .~ 7  )
      .  ( gsTies         .~ 8  )
    & gLifetime
      %~ ( gsGames        .~ 9  )
      .  ( gsMinsPlayed   .~ 10 )
      .  ( gsGoalsAllowed .~ 11 )
      .  ( gsShutouts     .~ 12 )
      .  ( gsWins         .~ 13 )
      .  ( gsLosses       .~ 14 )
      .  ( gsTies         .~ 15 )

  expected = unlines
    [ "Number: 1   "
    , "  Name: Joe*"
    , ""
    , "              YTD Lifetime"
    , " Games played   2        9"
    , "  Mins played   3       10"
    , "Goals allowed   4       11"
    , "     Shutouts   5       12"
    , "         Wins   6       13"
    , "       Losses   7       14"
    , "         Ties   8       15"
    ]

  in it "should format the output correctly" $
    goalieDetails input `shouldBe` expected

goalieNameSpec :: Spec
goalieNameSpec = describe "goalieName" $ mapM_
  (\(label, g, expected) -> context label $
    it ("should be " ++ expected) $
      goalieName g `shouldBe` expected)

  --  label,        goalie,  expected
  [ ( "rookie",     rookie,  "foo*"   )
  , ( "non-rookie", active,  "foo"    )
  , ( "retired",    retired, "*foo"   )
  ]

  where
    rookie     = goalie True True
    active     = goalie False True
    retired    = goalie False False
    goalie r a = newGoalie 1 "foo"
      & gRookie .~ r
      & gActive .~ a