    it "Next day for Friday is Saturday" $ do
      (nextDay Friday) `shouldBe` Saturday
    it "Next day for Saturday is Sunday" $ do
      (nextDay Saturday) `shouldBe` Sunday
    it "Next day for Sunday is Monday" $ do
      (nextDay Sunday) `shouldBe` Monday

afterDaysSpec :: SpecWith ()
afterDaysSpec =
  describe "Block1_Task1.afterDays" $ do
    it "Negative number of days is forbidden" $ do