From f97db477ddd8e848c880d95dd0de7ed1e32ec93c Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Thu, 14 Nov 2019 02:07:00 -0500
Subject: [PATCH] implemented editGoalieYtdTies

---
 src/Mtlstats/Actions/EditGoalie.hs |  2 +-
 test/Actions/EditGoalieSpec.hs     | 32 ++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+), 1 deletion(-)

diff --git a/src/Mtlstats/Actions/EditGoalie.hs b/src/Mtlstats/Actions/EditGoalie.hs
index 4615411..cb0f129 100644
--- a/src/Mtlstats/Actions/EditGoalie.hs
+++ b/src/Mtlstats/Actions/EditGoalie.hs
@@ -99,7 +99,7 @@ editGoalieYtdTies
   -- ^ The number of ties
   -> ProgState
   -> ProgState
-editGoalieYtdTies = undefined
+editGoalieYtdTies ties = editGoalie (gYtd.gsTies .~ ties) EGYtd
 
 editGoalie :: (Goalie -> Goalie) -> EditGoalieMode -> ProgState -> ProgState
 editGoalie f mode s = fromMaybe s $ do
diff --git a/test/Actions/EditGoalieSpec.hs b/test/Actions/EditGoalieSpec.hs
index 13e03ab..ac92d2e 100644
--- a/test/Actions/EditGoalieSpec.hs
+++ b/test/Actions/EditGoalieSpec.hs
@@ -38,6 +38,7 @@ spec = describe "EditGoalie" $ do
   editGoalieYtdGoalsSpec
   editGoalieYtdWinsSpec
   editGoalieYtdLossesSpec
+  editGoalieYtdTiesSpec
 
 editGoalieNumberSpec :: Spec
 editGoalieNumberSpec = describe "editGoalieNumber" $ editTest
@@ -256,6 +257,37 @@ editGoalieYtdLossesSpec = describe "editGoalieYtdLosses" $ editTest
     )
   ]
 
+editGoalieYtdTiesSpec :: Spec
+editGoalieYtdTiesSpec = describe "editGoalieYtdTies" $ editTest
+  (editGoalieYtdTies 1)
+  EGYtdTies
+  (\(num, name, ties) -> newGoalie num name & gYtd.gsTies .~ ties)
+  [ ( "set Joe"
+    , Just 0
+    , ( 2, "Joe", 1 )
+    , ( 3, "Bob", 0 )
+    , EGYtd
+    )
+  , ( "set Bob"
+    , Just 1
+    , ( 2, "Joe", 0 )
+    , ( 3, "Bob", 1 )
+    , EGYtd
+    )
+  , ( "out of bounds"
+    , Just 2
+    , ( 2, "Joe", 0 )
+    , ( 3, "Bob", 0 )
+    , EGYtdTies
+    )
+  , ( "no goalie selected"
+    , Nothing
+    , ( 2, "Joe", 0 )
+    , ( 3, "Bob", 0 )
+    , EGYtdTies
+    )
+  ]
+
 editTest
   :: (ProgState -> ProgState)
   -> EditGoalieMode