KoreaSpec.hs

module Data.Holiday.KoreaSpec where

import qualified Data.Holiday.Korea as Korea
import qualified Data.Holiday.Model as KM
import Data.Holiday.Model (date, lunar, name)
import Test.Hspec (Spec, describe, it, shouldBe)

spec :: Spec
spec =
  describe "Data.Holiday.Korea" $ do
    it "returns New Year's Day when 2000/1/1" $
      Korea.getHoliday 2000 1 1 `shouldBe`
      Just
        KM.Holiday
          {date = KM.MD (1, 1), name = "New Year's Day", lunar = Nothing}
    it "returns March 1 Movement Day when 2019/3/1" $
      Korea.getHoliday 2019 3 1 `shouldBe`
      Just
        KM.Holiday
          {date = KM.MD (3, 1), name = "March 1 Movement Day", lunar = Nothing}