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

module Test.Clock.Pattern
  ( testClockPatterns,
  )
where

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

testClockPatterns :: TestTree
testClockPatterns =
  let testSame :: forall a. (Eq a, Show a) => TestName -> a -> a -> TestTree
      testSame name expected found = testCase name $ assertEqual "" expected found
   in testGroup "pattern" $
        [ testGroup
            "construct"
            [ testSame "Seconds" 52.4 (Seconds 52.4),
              testSame "Seconds-Picoseconds" (Picoseconds 7_276_000_000_000) (Seconds 7.276),
              testSame "Minutes-Seconds" (Seconds 210) (Minutes 3.5),
              testSame "Hours-Minutes" (Minutes 120) (Hours 2),
              testSame "Nominal" 37.4 (Nominal 37.4)
            ],
          testGroup
            "deconstruct"
            [ testSame "Seconds" 52.4 ((\(Seconds x) -> x) 52.4),
              testSame "Seconds-Picoseconds" 7.276 ((\(Seconds x) -> x) $ Picoseconds 7_276_000_000_000),
              testSame "Minutes-Seconds" 3.5 ((\(Minutes x) -> x) $ Seconds 210),
              testSame "Hours-Minutes" 2 ((\(Hours x) -> x) $ Minutes 120),
              testSame "Nominal" 37.4 ((\(Nominal x) -> x) 37.4)
            ]
        ]