module Test.TestMonthDay where import Data.Time.Calendar.MonthDay import Test.TestUtil import Test.TestMonthDayRef showCompare :: (Eq a,Show a) => a -> String -> a -> String showCompare a1 b a2 | a1 == a2 = (show a1) ++ " == " ++ b showCompare a1 b a2 = "DIFF: " ++ (show a1) ++ " -> " ++ b ++ " -> " ++ (show a2) testMonthDay :: Test testMonthDay = pureTest "testMonthDay" $ diff testMonthDayRef $ concat $ map (\isL -> unlines (leap isL : yearDays isL)) [False,True] where leap isLeap = if isLeap then "Leap:" else "Regular:" yearDays isLeap = map (\yd -> let (m,d) = dayOfYearToMonthAndDay isLeap yd yd' = monthAndDayToDayOfYear isLeap m d mdtext = show m ++ "-" ++ show d in showCompare yd mdtext yd') [-2..369]