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

mark inactive players in playerName

This commit is contained in:
Jonathan Lamothe 2020-01-11 01:27:01 -05:00
parent e38275aefe
commit 461fb5d942
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Mtlstats/Helpers/Player.hs
View File

@ -49,8 +49,12 @@ playerDetails p = unlines $ top ++ [""] ++ table
playerName :: Player -> String playerName :: Player -> String
playerName p = let playerName p = let
prefix = if p^.pActive
then ""
else "*"
suffix = if p^.pRookie suffix = if p^.pRookie
then "*" then "*"
else "" else ""
in p^.pName ++ suffix in prefix ++ p^.pName ++ suffix

10
test/Helpers/PlayerSpec.hs
View File

@ -71,9 +71,13 @@ playerNameSpec = describe "playerName" $ mapM_
-- label, player, expected -- label, player, expected
[ ( "rookie", rookie, "foo*" ) [ ( "rookie", rookie, "foo*" )
, ( "non-rookie", nonRookie, "foo" ) , ( "non-rookie", nonRookie, "foo" )
, ( "retired", retired, "*foo" )
] ]
where where
rookie = player True rookie = player True True
nonRookie = player False nonRookie = player False True
player r = newPlayer 1 "foo" "centre" & pRookie .~ r retired = player False False
player r a = newPlayer 1 "foo" "centre"
& pRookie .~ r
& pActive .~ a