hora-1.0: test/Test/TestFuture.hs

module Test.TestFuture where

import Test.Hspec
import Debug.Trace
import Data.Time.Hora.Future
import Data.Time.Hora.Type.Time
import Data.Time.Clock



main::IO()
main = hspec $ do
       describe "Case.TestFuture" $ do
          it "3 second from now" $ do
            t1 <- getCurrentTime
            traceIO $ show t1
            f2 <- futureUTCTime $ Milli 100
            traceIO $ show f2
            f3 <- futureUTCTime $ Sec 3
            traceIO $ show f3
            1 `shouldBe` 1