tests/Context.hs · hakyll

on ea1bb41 help sign in

hakyll/tests/Context.hs

37 lines 1.1 kB history raw

1module Context

2 ( contextGroup

3 ) where

5import qualified Data.Map as M

7import Test.QuickCheck

8import Test.Framework (testGroup)

9import Test.Framework.Providers.HUnit

10import Test.Framework.Providers.QuickCheck2

11import Test.HUnit

13import Text.Hakyll.Context

15-- Context test group.

16contextGroup = testGroup "Context"

17 [ testCase "test_renderDate_1" test_renderDate_1

18 , testCase "test_renderDate_2" test_renderDate_2

19 , testCase "test_changeExtension_1" test_changeExtension_1

20 ]

22-- Date rendering test cases.

23test_renderDate_1 =

24 M.lookup "date" rendered @?= Just "December 30, 2009"

25 where

26 rendered = renderDate "date" "%B %e, %Y" "Unknown date"

27 (M.singleton "path" "2009-12-30-a-title.markdown")

29test_renderDate_2 = M.lookup "date" rendered @?= Just "Unknown date"

30 where

31 rendered = renderDate "date" "%B %e, %Y" "Unknown date" $

32 M.singleton "path" "2009-badness-30-a-title.markdown"

34-- changeExtension test cases.

35test_changeExtension_1 = M.lookup "url" rendered @?= Just "foo.php"

36 where

37 rendered = changeExtension "php" (M.singleton "url" "foo.html")