hora-2.1.0: 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::IO()
main = hspec $ do
       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