fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

implemented playerSummary

This commit is contained in:
Jonathan Lamothe 2019-10-02 01:31:07 -04:00
parent 2be7d2bf1d
commit 4f70c84c6b
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Mtlstats/Types.hs
View File

@ -717,4 +717,5 @@ modifyPlayer f n = map
-- | Provides a short summary string for a player -- | Provides a short summary string for a player
playerSummary :: Player -> String playerSummary :: Player -> String
playerSummary = undefined playerSummary p =
p^.pName ++ " (" ++ show (p^.pNumber) ++ ") " ++ p^.pPosition

6
test/TypesSpec.hs
View File

@ -58,6 +58,7 @@ spec = describe "Mtlstats.Types" $ do
playerSearchSpec playerSearchSpec
playerSearchExactSpec playerSearchExactSpec
modifyPlayerSpec modifyPlayerSpec
playerSummarySpec
Menu.spec Menu.spec
playerSpec :: Spec playerSpec :: Spec
@ -578,6 +579,11 @@ modifyPlayerSpec = describe "modifyPlayer" $ mapM_
, ( "Sam", 0, 0, 0 ) , ( "Sam", 0, 0, 0 )
] ]
playerSummarySpec :: Spec
playerSummarySpec = describe "playerSummary" $
it "should be \"Joe (2) center\"" $
playerSummary joe `shouldBe` "Joe (2) center"
joe :: Player joe :: Player
joe = newPlayer 2 "Joe" "center" joe = newPlayer 2 "Joe" "center"