added "Edit Player" to main menu

This commit is contained in:
Jonathan Lamothe
2019-11-01 04:00:29 -04:00
parent cb4fc77dd6
commit 5fd67f3802
4 changed files with 16 additions and 1 deletions

View File

@@ -57,6 +57,7 @@ spec = describe "Mtlstats.Actions" $ do
validateGameDateSpec
createPlayerSpec
createGoalieSpec
editPlayerSpec
addPlayerSpec
addGoalieSpec
resetCreatePlayerStateSpec
@@ -366,6 +367,12 @@ createGoalieSpec = describe "createGoalie" $
s = createGoalie newProgState
in show (s^.progMode) `shouldBe` "CreateGoalie"
editPlayerSpec :: Spec
editPlayerSpec = describe "editPlayer" $
it "should change the mode appropriately" $ let
s = editPlayer newProgState
in show (s^.progMode) `shouldBe` "EditPlayer"
addPlayerSpec :: Spec
addPlayerSpec = describe "addPlayer" $ do
let