enter months by number

2020-04-15 22:07:56 -04:00
parent 99baebe144
commit bce31d059b
9 changed files with 62 additions and 29 deletions
--- a/test/FormatSpec.hs
+++ b/test/FormatSpec.hs
@@ -141,9 +141,9 @@ labelTableSpec = describe "labelTable" $
      ]

    expected =
-      [ "   foo: bar"
+      [ "   foo: bar "
      , "   baz: quux"
-      , "longer: x"
+      , "longer: x   "
      ]

    in labelTable input `shouldBe` expected
--- a/test/Helpers/GoalieSpec.hs
+++ b/test/Helpers/GoalieSpec.hs
@@ -54,7 +54,7 @@ goalieDetailsSpec = describe "goalieDetails" $ let
      .  ( gsTies         .~ 15 )

  expected = unlines
-    [ "Number: 1"
+    [ "Number: 1   "
    , "  Name: Joe*"
    , ""
    , "              YTD Lifetime"
--- a/test/Helpers/PlayerSpec.hs
+++ b/test/Helpers/PlayerSpec.hs
@@ -50,8 +50,8 @@ playerDetailsSpec = describe "playerDetails" $
        }

    expected = unlines
-      [ "  Number: 1"
-      , "    Name: Joe*"
+      [ "  Number: 1     "
+      , "    Name: Joe*  "
      , "Position: centre"
      , ""
      , "             YTD Lifetime"