Contents

import Data.Time.Clock   (UTCTime)
import Test.Hspec        (Spec, describe, it, shouldBe)
import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)

import Gigasecond (fromDay)

import Data.Time.Format
  ( ParseTime
  , TimeLocale
  , defaultTimeLocale
  , iso8601DateFormat
  , parseTimeOrError
  )

readTime :: ParseTime t => TimeLocale -> String -> String -> t
readTime = parseTimeOrError True

main :: IO ()
main = hspecWith defaultConfig {configFastFail = True} specs

specs :: Spec
specs = describe "gigasecond" $
          describe "fromDay" $ do

            -- Test cases loosely based on reference file
            -- at `exercism/x-common/gigasecond.json`.

            let dt = readTime defaultTimeLocale
                     (iso8601DateFormat (Just "%T%Z")) :: String -> UTCTime

            it "from apr 25 2011" $
              fromDay (dt "2011-04-25T00:00:00Z")
              `shouldBe` dt "2043-01-01T01:46:40Z"

            it "from jun 13 1977" $
              fromDay (dt "1977-06-13T00:00:00Z")
              `shouldBe` dt "2009-02-19T01:46:40Z"

            it "from jul 19 1959" $
              fromDay (dt "1959-07-19T00:00:00Z")
              `shouldBe` dt "1991-03-27T01:46:40Z"

Version data entries

165 entries across 165 versions & 1 rubygems

Version	Path
trackler-2.1.0.9	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.1.0.8	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.1.0.7	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.1.0.6	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.1.0.5	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.1.0.4	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.1.0.3	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.1.0.2	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.1.0.1	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.1.0.0	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.55	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.54	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.53	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.52	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.51	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.50	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.49	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.48	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.47	tracks/haskell/exercises/gigasecond/test/Tests.hs
trackler-2.0.8.46	tracks/haskell/exercises/gigasecond/test/Tests.hs