RelativeParserTest.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

module Data.Taskell.Date.RelativeParserTest
    ( test_relative_parser
    ) where

import ClassyPrelude

import Test.Tasty
import Test.Tasty.HUnit

import Data.Time.Calendar (fromGregorian)
import Data.Time.Clock    (secondsToDiffTime)

import Data.Taskell.Date                (Due (DueDate, DueTime))
import Data.Taskell.Date.RelativeParser (parseRelative)

toTime :: (Integer, Int, Int) -> Integer -> Due
toTime (y, m, d) seconds = DueTime $ UTCTime (fromGregorian y m d) (secondsToDiffTime seconds)

toDay :: (Integer, Int, Int) -> Due
toDay (y, m, d) = DueDate $ fromGregorian y m d

-- 08:53:03 18th December 2019
time :: UTCTime
time = UTCTime (fromGregorian 2019 12 18) 31983

-- tests
test_relative_parser :: TestTree
test_relative_parser =
    testGroup
        "Data.Taskell.Date.RelativeParser"
        [ testCase
              "Second"
              (assertEqual
                   "Adds a second"
                   (Right (toTime (2019, 12, 18) 31984))
                   (parseRelative time "1s"))
        , testCase
              "Minute"
              (assertEqual
                   "Adds a minute"
                   (Right (toTime (2019, 12, 18) 32043))
                   (parseRelative time "1m"))
        , testCase
              "Hour"
              (assertEqual
                   "Adds an hour"
                   (Right (toTime (2019, 12, 18) 35583))
                   (parseRelative time "1h"))
        , testCase
              "Day"
              (assertEqual "Adds a day" (Right (toDay (2019, 12, 19))) (parseRelative time "1d"))
        , testCase
              "Days"
              (assertEqual "Adds 29 days" (Right (toDay (2020, 1, 16))) (parseRelative time "29 d"))
        , testCase
              "Week"
              (assertEqual "Adds a week" (Right (toDay (2019, 12, 25))) (parseRelative time "1w "))
        , testCase
              "Mix"
              (assertEqual
                   "Adds 1 week 2 days and 29 seconds"
                   (Right (toTime (2019, 12, 27) 32012))
                   (parseRelative time " 1 w 2d 29 s "))
        , testCase
              "Mix out of order"
              (assertEqual
                   "Adds 1 week 2 days and 29 seconds"
                   (Right (toTime (2019, 12, 27) 32012))
                   (parseRelative time " 2d 1 w 29 s"))
        , testCase
              "invalid format"
              (assertEqual "Error" (Left "Could not parse date.") (parseRelative time "18/12/2019"))
        , testCase
              "invalid numbers"
              (assertEqual "Error" (Left "Could not parse date.") (parseRelative time "2019-39-59"))
        ]