Tests.hs

module Text.Feed.Util.Tests
  ( feedUtilTests
  ) where

import Prelude.Compat

import Data.Time
import Data.Time.Clock.POSIX
import System.Time
import Test.Framework (Test, testGroup)
import Test.Framework.Providers.HUnit (testCase)
import Test.HUnit (Assertion, assertEqual)
import Text.Feed.Types
import Text.Feed.Util

feedUtilTests :: Test
feedUtilTests =
  testGroup
    "Text.Feed.Util"
    [ testGroup
        "toFeedDateString[UTC]"
        [ testToFeedDateString AtomKind (read "2016-01-07 15:33:29 UTC") "2016-01-07T15:33:29Z"
        , testToFeedDateString
            (RSSKind Nothing)
            (read "2016-01-07 15:33:29 UTC")
            "Thu, 07 Jan 2016 15:33:29 GMT"
        , testToFeedDateString
            (RDFKind Nothing)
            (read "2016-01-07 15:33:29 UTC")
            "2016-01-07T15:33:29Z"
        ]
    ]

testToFeedDateString :: FeedKind -> UTCTime -> String -> Test
testToFeedDateString kind utct expectResult = testCase (show kind) testToDateString
  where
    testToDateString :: Assertion
    testToDateString = do
      assertEqual "toFeedDateStringUTC" expectResult (toFeedDateStringUTC kind utct)
      assertEqual "toFeedDateString" expectResult (toFeedDateString kind clockTime)
    clockTime = TOD (truncate $ utcTimeToPOSIXSeconds utct) 0