time-compat-1.9.9: test/main/Test/Calendar/LongWeekYears.hs

module Test.Calendar.LongWeekYears
  ( longWeekYears,
  )
where

import Data.Time.Calendar.Compat
import Data.Time.Calendar.WeekDate.Compat
import Test.Calendar.LongWeekYearsRef
import Test.Tasty
import Test.Tasty.HUnit

longYear :: Integer -> Bool
longYear year =
  case toWeekDate (fromGregorian year 12 31) of
    (_, 53, _) -> True
    _ -> False

showLongYear :: Integer -> String
showLongYear year =
  unwords
    [ show year ++ ":",
      ( if isLeapYear year
          then "L"
          else " "
      )
        ++ ( if longYear year
               then "*"
               else " "
           )
    ]

longWeekYears :: TestTree
longWeekYears = testCase "longWeekYears" $ assertEqual "" longWeekYearsRef $ unlines $ map showLongYear [1901 .. 2050]