DurationSpec.hs

module Data.Geo.Jord.DurationSpec
    ( spec
    ) where

import Test.Hspec

import Data.Geo.Jord.Duration
import Data.Geo.Jord.Quantity

spec :: Spec
spec = do
    describe "Reading valid durations" $ do
        it "reads 1H45M36.5S" $ readDuration "1H45M36.5S" `shouldBe` Just (hms 1 45 36.5)
        it "reads 45M" $ readDuration "45M" `shouldBe` Just (minutes 45)
        it "reads 36S" $ readDuration "36S" `shouldBe` Just (seconds 36)
        it "reads 36.6S" $ readDuration "36.6S" `shouldBe` Just (milliseconds 36600)
        it "reads 1H-30M" $ readDuration "1H-30M" `shouldBe` Just (hours 0.5)
        it "reads 0H8M5.953S" $ readDuration "0H8M5.953S" `shouldBe` Just (seconds 485.953)
    describe "Reading invalid duration" $ it "fails to read 5" $ readDuration "5" `shouldBe` Nothing
    describe "Showing duration" $
        it "shows duration" $ show (hms 1 45 36.5) `shouldBe` "1H45M36.500S"
    describe "Converting duration" $ do
        it "converts hours to seconds" $ toSeconds (hours 1) `shouldBe` 3600.0
        it "converts minutes to hours" $ toHours (minutes 30) `shouldBe` 0.5
        it "converts duration to milliseconds" $ toMilliseconds (hms 1 54 3.154) `shouldBe` 6843154
    describe "Adding/Subtracting duration" $ do
        it "adds duration" $ add (minutes 45) (seconds 36) `shouldBe` hms 0 45 36
        it "subtracts duration" $ sub (hours 1) (minutes 60) `shouldBe` zero