timezone-detect-0.1.0.0: test/TimezoneDetectSpec.hs

module TimezoneDetectSpec (spec) where

import TimezoneDetect
import Test.Hspec

zoneFile :: FilePath
zoneFile = "./test/tz_db/timezone21.bin"

lookupTimezone' :: Float -> Float -> Either String TimezoneName
lookupTimezone' = lookupTimezone zoneFile

spec :: Spec
spec = do
    describe "lookupTimezone" $ do
        it "calculates coordinates for known locations" $ do
            let newYork = lookupTimezone' 40.7831 (-73.9712)
            let tegucigalpa = lookupTimezone' 14.0650 (-87.1715)
            newYork `shouldBe` (Right "America/New_York")
            tegucigalpa `shouldBe` (Right "America/Tegucigalpa")

        it "returns an error value when given an invalid timezone file path" $ do
            let wrong = lookupTimezone "bogus" 0.0 0.0
            wrong `shouldBe` (Left "bogus is not a valid timezone database.")

        it "returns an error value when given invalid coordinates" $ do
            let outOfThisWorld = lookupTimezone' 40000000.7 (-73.97)
            outOfThisWorld `shouldBe` (Left "Invalid coordinates.")