time-compat-1.9.9: test/main/Test/Clock/Conversion.hs

module Test.Clock.Conversion
  ( testClockConversion,
  )
where

import Data.Time.Clock.Compat
import Data.Time.Clock.System.Compat
import Test.Tasty
import Test.Tasty.HUnit

testClockConversion :: TestTree
testClockConversion =
  testGroup "clock conversion" $
    let testPair :: (SystemTime, UTCTime) -> TestTree
        testPair (st, ut) =
          testGroup (show ut) $
            [ testCase "systemToUTCTime" $ assertEqual (show ut) ut $ systemToUTCTime st,
              testCase "utcToSystemTime" $ assertEqual (show ut) st $ utcToSystemTime ut
            ]
     in [ testPair (MkSystemTime 0 0, UTCTime systemEpochDay 0),
          testPair (MkSystemTime 86399 0, UTCTime systemEpochDay 86399),
          testPair (MkSystemTime 86399 999999999, UTCTime systemEpochDay 86399.999999999),
          testPair (MkSystemTime 86399 1000000000, UTCTime systemEpochDay 86400),
          testPair (MkSystemTime 86399 1999999999, UTCTime systemEpochDay 86400.999999999),
          testPair (MkSystemTime 86400 0, UTCTime (succ systemEpochDay) 0)
        ]