AddDays.hs

module Test.AddDays where

import Data.Time.Calendar
import Test.TestUtil
import Test.AddDaysRef

days ::[Day]
days =
    [
    fromGregorian 2005 2 28,
    fromGregorian 2004 2 29,
    fromGregorian 2004 1 31,
    fromGregorian 2004 12 31,
    fromGregorian 2005 7 1,
    fromGregorian 2005 4 21,
    fromGregorian 2005 6 30
    ]

increments :: [Integer]
increments = [-10,-4,-1,0,1,7,83]

adders :: [(String,Integer -> Day -> Day)]
adders =
    [
    ("day",addDays),
    ("month (clip)",addGregorianMonthsClip),
    ("month (roll over)",addGregorianMonthsRollOver),
    ("year (clip)",addGregorianYearsClip),
    ("year (roll over)",addGregorianYearsRollOver)
    ]

resultDays :: [String]
resultDays = do
    (aname,adder) <- adders
    increment <- increments
    day <- days
    return ((showGregorian day) ++ " + " ++ (show increment) ++ " * " ++ aname ++ " = " ++ showGregorian (adder increment day))

addDaysTest :: Test
addDaysTest = pureTest "addDays" $
    diff addDaysRef $ unlines resultDays