From e7606c8a5e6754423b8f62c3c6e5c9afa3a98661 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 28 Nov 2019 04:50:19 -0500 Subject: [PATCH] removed playerNameColumnWidth (no longer necessary) --- src/Mtlstats/Report.hs | 7 +------ test/ReportSpec.hs | 20 +------------------- 2 files changed, 2 insertions(+), 25 deletions(-) diff --git a/src/Mtlstats/Report.hs b/src/Mtlstats/Report.hs index 3cde0ec..a575e09 100644 --- a/src/Mtlstats/Report.hs +++ b/src/Mtlstats/Report.hs @@ -19,7 +19,7 @@ along with this program. If not, see . -} -module Mtlstats.Report (report, gameDate, playerNameColWidth) where +module Mtlstats.Report (report, gameDate) where import qualified Data.Map as M import Data.Maybe (fromMaybe) @@ -177,8 +177,3 @@ playerReport width label ps = let $ tHeader : body ++ [separator, totals] in rHeader ++ table - -playerNameColWidth :: [Player] -> Int -playerNameColWidth = foldr - (\player current -> max current $ succ $ length $ player^.pName) - 10 diff --git a/test/ReportSpec.hs b/test/ReportSpec.hs index 310817a..d3998b3 100644 --- a/test/ReportSpec.hs +++ b/test/ReportSpec.hs @@ -28,9 +28,8 @@ import Mtlstats.Report import Mtlstats.Types spec :: Spec -spec = describe "Mtlstats.Report" $ do +spec = describe "Mtlstats.Report" gameDateSpec - playerNameColWidthSpec gameDateSpec :: Spec gameDateSpec = describe "gameDate" $ do @@ -46,20 +45,3 @@ gameDateSpec = describe "gameDate" $ do context "invalid date" $ it "should return an empty string" $ gameDate newGameState `shouldBe` "" - -playerNameColWidthSpec :: Spec -playerNameColWidthSpec = describe "playerNameColWidth" $ do - let - short1 = newPlayer 1 "short" "foo" - short2 = newPlayer 2 "shorty" "bar" - long = newPlayer 3 "123456789012345" "baz" - - mapM_ - (\(label, players, expected) -> context label $ - it ("should be " ++ show expected) $ - playerNameColWidth players `shouldBe` expected) - -- label, players, expected - [ ( "empty list", [], 10 ) - , ( "short names", [short1, short2], 10 ) - , ( "long name", [short1, long], 16 ) - ]