moved editStandings to Mtlstats.Actions.EditStandings module
This commit is contained in:
parent
6a0d1f7203
commit
264d9f81e2
@ -36,7 +36,6 @@ module Mtlstats.Actions
|
||||
, editSelectedPlayer
|
||||
, editGoalie
|
||||
, editSelectedGoalie
|
||||
, editStandings
|
||||
, addPlayer
|
||||
, addGoalie
|
||||
, resetCreatePlayerState
|
||||
@ -158,10 +157,6 @@ editSelectedGoalie f s = fromMaybe s $ do
|
||||
goalies' = modifyNth n f goalies
|
||||
Just $ s & database.dbGoalies .~ goalies'
|
||||
|
||||
-- | Enters edit standings mode
|
||||
editStandings :: ProgState -> ProgState
|
||||
editStandings = progMode .~ EditStandings
|
||||
|
||||
-- | Adds the entered player to the roster
|
||||
addPlayer :: ProgState -> ProgState
|
||||
addPlayer s = fromMaybe s $ do
|
||||
|
@ -20,12 +20,19 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||||
-}
|
||||
|
||||
module Mtlstats.Actions.EditStandings
|
||||
( editHomeStandings
|
||||
( editStandings
|
||||
, editHomeStandings
|
||||
, editRoadStandings
|
||||
) where
|
||||
|
||||
import Lens.Micro ((.~))
|
||||
|
||||
import Mtlstats.Types
|
||||
|
||||
-- | Enters edit standings mode
|
||||
editStandings :: ProgState -> ProgState
|
||||
editStandings = progMode .~ EditStandings
|
||||
|
||||
-- | Edits the home standings
|
||||
editHomeStandings :: ProgState -> ProgState
|
||||
editHomeStandings = undefined
|
||||
|
@ -44,6 +44,7 @@ import qualified UI.NCurses as C
|
||||
|
||||
import Mtlstats.Actions
|
||||
import qualified Mtlstats.Actions.NewGame.GoalieInput as GI
|
||||
import Mtlstats.Actions.EditStandings
|
||||
import Mtlstats.Config
|
||||
import Mtlstats.Types
|
||||
import Mtlstats.Types.Menu
|
||||
|
43
test/Actions/EditStandingsSpec.hs
Normal file
43
test/Actions/EditStandingsSpec.hs
Normal file
@ -0,0 +1,43 @@
|
||||
{-
|
||||
|
||||
mtlstats
|
||||
Copyright (C) 1984, 1985, 2019, 2020 Rhéal Lamothe
|
||||
<rheal.lamothe@gmail.com>
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or (at
|
||||
your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful, but
|
||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
-}
|
||||
|
||||
{-# LANGUAGE LambdaCase #-}
|
||||
|
||||
module Actions.EditStandingsSpec (spec) where
|
||||
|
||||
import Lens.Micro ((^.))
|
||||
import Test.Hspec (Spec, describe, it, shouldSatisfy)
|
||||
|
||||
import Mtlstats.Actions.EditStandings
|
||||
import Mtlstats.Types
|
||||
|
||||
spec :: Spec
|
||||
spec = describe "EditStandings"
|
||||
editStandingsSpec
|
||||
|
||||
editStandingsSpec :: Spec
|
||||
editStandingsSpec = describe "editStandings" $ let
|
||||
ps = newProgState
|
||||
ps' = editStandings ps
|
||||
in it "should set progMode to EditStandings" $
|
||||
ps'^.progMode `shouldSatisfy` \case
|
||||
EditStandings -> True
|
||||
_ -> False
|
@ -39,6 +39,7 @@ import Mtlstats.Actions
|
||||
import Mtlstats.Types
|
||||
|
||||
import qualified Actions.NewGameSpec as NewGame
|
||||
import qualified Actions.EditStandingsSpec as EditStandings
|
||||
import qualified TypesSpec as TS
|
||||
|
||||
spec :: Spec
|
||||
@ -57,7 +58,6 @@ spec = describe "Mtlstats.Actions" $ do
|
||||
editSelectedPlayerSpec
|
||||
editGoalieSpec
|
||||
editSelectedGoalieSpec
|
||||
editStandingsSpec
|
||||
addPlayerSpec
|
||||
addGoalieSpec
|
||||
resetCreatePlayerStateSpec
|
||||
@ -66,6 +66,7 @@ spec = describe "Mtlstats.Actions" $ do
|
||||
scrollUpSpec
|
||||
scrollDownSpec
|
||||
NewGame.spec
|
||||
EditStandings.spec
|
||||
|
||||
startNewSeasonSpec :: Spec
|
||||
startNewSeasonSpec = describe "startNewSeason" $ do
|
||||
@ -310,15 +311,6 @@ editSelectedGoalieSpec = describe "editSelectedGoalie" $ mapM_
|
||||
goalie n = newGoalie n ("Player " ++ show n)
|
||||
goalie' n = newGoalie n "foo"
|
||||
|
||||
editStandingsSpec :: Spec
|
||||
editStandingsSpec = describe "editStandings" $ let
|
||||
ps = newProgState
|
||||
ps' = editStandings ps
|
||||
in it "should set progMode to EditStandings" $
|
||||
ps'^.progMode `shouldSatisfy` \case
|
||||
EditStandings -> True
|
||||
_ -> False
|
||||
|
||||
addPlayerSpec :: Spec
|
||||
addPlayerSpec = describe "addPlayer" $ do
|
||||
let
|
||||
|
Loading…
x
Reference in New Issue
Block a user