TestStamp.hs

module Test.TestStamp where

import Debug.Trace
import Test.Hspec
import Data.Time.Clock
import Data.Time.Hora.Part
import Data.Time.Hora.Stamp
import Data.Time.Hora.Type


main:: SpecWith ()
main = describe "Test.TestStamp" $ do
      it "now : UTC Time" $ do
         result1 :: UTCTime <- now
         traceIO $ show ("UTCTime",result1)
      it "now : DatePart Int" $ do
         result1 :: DatePart Int <- now
         traceIO $ show ("DatePart",result1)
      it "now : Tz (DatePart Int)" $ do
         result1 :: Tz (DatePart Int) <- now
         traceIO $ show ("Tz DatePart",result1)
      it "now : DatePartSmall" $ do
         result1 :: DatePartSmall <- now
         traceIO $ show ("DatePartSmall",result1)
         let utc2 = toUtc result1
         traceIO $ show ("DatePartSmall -> UTCTime",utc2)
      it "now : Tz DatePartSmall" $ do
         result1 :: Tz DatePartSmall <- now
         let utc2 = toUtc <$> result1
         traceIO $ show ("Tz DatePartSmall -> Tz UTCTime", utc2)