mark rookies in playerSummary

2020-01-04 12:10:19 -05:00
parent e077c32956
commit 5209c4a296
2 changed files with 3 additions and 2 deletions
--- a/test/Helpers/PlayerSpec.hs
+++ b/test/Helpers/PlayerSpec.hs
@@ -37,6 +37,7 @@ playerDetailsSpec = describe "playerDetails" $
  it "should give a detailed description" $ let

    p = newPlayer 1 "Joe" "centre"
+      & pRookie .~ True
      & pYtd .~ PlayerStats
        { _psGoals   = 2
        , _psAssists = 3
@@ -50,7 +51,7 @@ playerDetailsSpec = describe "playerDetails" $

    expected = unlines
      [ "  Number: 1"
-      , "    Name: Joe"
+      , "    Name: Joe*"
      , "Position: centre"
      , ""
      , "             YTD Lifetime"