renamed date to gameDate

This commit is contained in:
Jonathan Lamothe
2019-09-07 09:06:16 -04:00
parent dc2f632563
commit 9c0ebb42d1
3 changed files with 12 additions and 12 deletions

View File

@@ -29,19 +29,19 @@ import Mtlstats.Types
spec :: Spec
spec = describe "Mtlstats.Report"
dateSpec
gameDateSpec
dateSpec :: Spec
dateSpec = describe "date" $ do
gameDateSpec :: Spec
gameDateSpec = describe "gameDate" $ do
context "valid date" $
context "valid gameDate" $
it "should format the date" $ let
gs = newGameState
& gameYear ?~ 1980
& gameMonth ?~ 6
& gameDay ?~ 25
in date gs `shouldBe` "JUN 25 1980"
in gameDate gs `shouldBe` "JUN 25 1980"
context "invalid date" $
it "should return an empty string" $
date newGameState `shouldBe` ""
gameDate newGameState `shouldBe` ""