hora-2.2.1: test/Test/TestDiffTime.hs

module Test.TestDiffTime where

import Control.Concurrent
import Data.Time.Clock
import Data.Time.Hora.Future as F
import Data.Time.Hora.Stamp
import Data.Time.Hora.Type
import Debug.Trace
import Test.Hspec


main :: SpecWith ()
main = describe "TestDiffTime" $ do
          it "diff time" $ do
            t1 <- getCurrentTime
            threadDelay 7000
            t2 <- getCurrentTime
            let diff3 = t1 F.- t2
            traceIO $ show diff3
            1 `shouldBe` 1
          it "DmyHmP" $ do
            dmy2 <- now::IO (DatePart Int)
            traceIO $ "TestDiffTime" ++ (show dmy2)
            1 `shouldBe` 1