hora-1.0: test/Test/TestPico.hs

module Test.TestPico where

import Test.Hspec
import Debug.Trace
import Data.Time.Hora.Parse
import Data.Time.Clock
import Data.Time.Hora.Type.DmyHm
import Data.Time.LocalTime
import Data.Time.Hora.Timestamp


main::IO()
main = hspec $ do
       describe "Test.TestPico" $ do
          it "now" $ do
            now >>= traceIO . show
            1 `shouldBe` 1
          it "parse DmyHmsFormat" $ do
            getCurrentTime >>= pure . parse >>= \(f1::DmyHmp') -> traceIO $ show f1 
            1 `shouldBe` 1
          it "parse DmyHmP" $ do
            getCurrentTime >>= pure . parse >>= \(f1::DmyHmp) -> traceIO $ show f1
            1 `shouldBe` 1
          it "parse' DmyHmP curr timezone" $ do
            getCurrentTime >>= \t1 -> do
                z1 <- getCurrentTimeZone 
                let f1 = parse' z1 t1
                traceIO $ show f1
            1 `shouldBe` 1