mark inactive players in playerName

2020-01-11 01:27:01 -05:00
parent e38275aefe
commit 461fb5d942
2 changed files with 12 additions and 4 deletions
--- a/test/Helpers/PlayerSpec.hs
+++ b/test/Helpers/PlayerSpec.hs
@@ -71,9 +71,13 @@ playerNameSpec = describe "playerName" $ mapM_
  --  label,        player,    expected
  [ ( "rookie",     rookie,    "foo*"   )
  , ( "non-rookie", nonRookie, "foo"    )
+  , ( "retired",    retired,   "*foo"  )
  ]

  where
-    rookie    = player True
-    nonRookie = player False
-    player r  = newPlayer 1 "foo" "centre" & pRookie .~ r
+    rookie    = player True True
+    nonRookie = player False True
+    retired   = player False False
+    player r a = newPlayer 1 "foo" "centre"
+      & pRookie .~ r
+      & pActive .~ a