time-1.16: test/template/Main.hs

{-# LANGUAGE CPP #-}

module Main (main) where

import Data.Time.Clock
#if __GLASGOW_HASKELL__ >= 914
import qualified Language.Haskell.TH.Lift as TH
#else
import qualified Language.Haskell.TH.Syntax as TH
#endif
import Test.Tasty
import Test.Tasty.HUnit
import Test.TastyWrapper

testLift :: TestTree
testLift =
    testGroup
        "Lift instances"
        [ testCase "DiffTime" $ $$(TH.liftTyped (secondsToDiffTime 100)) @?= secondsToDiffTime 100
        , testCase "NominalDiffTime" $ $$(TH.liftTyped (secondsToNominalDiffTime 100)) @?= secondsToNominalDiffTime 100
        ]

tests :: TestTree
tests =
    testGroup
        "time-template"
        [ testLift
        ]

main :: IO ()
main = tastyWrapper $ defaultMain tests