diff options
Diffstat (limited to 'tests/Context.hs')
-rw-r--r-- | tests/Context.hs | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/tests/Context.hs b/tests/Context.hs new file mode 100644 index 0000000..d8d0504 --- /dev/null +++ b/tests/Context.hs @@ -0,0 +1,37 @@ +module Context + ( contextGroup + ) where + +import qualified Data.Map as M + +import Test.QuickCheck +import Test.Framework (testGroup) +import Test.Framework.Providers.HUnit +import Test.Framework.Providers.QuickCheck2 +import Test.HUnit + +import Text.Hakyll.Context + +-- Context test group. +contextGroup = testGroup "Context" + [ testCase "test_renderDate_1" test_renderDate_1 + , testCase "test_renderDate_2" test_renderDate_2 + , testCase "test_changeExtension_1" test_changeExtension_1 + ] + +-- Date rendering test cases. +test_renderDate_1 = + M.lookup "date" rendered @?= Just "December 30, 2009" + where + rendered = renderDate "date" "%B %e, %Y" "Unknown date" + (M.singleton "path" "2009-12-30-a-title.markdown") + +test_renderDate_2 = M.lookup "date" rendered @?= Just "Unknown date" + where + rendered = renderDate "date" "%B %e, %Y" "Unknown date" $ + M.singleton "path" "2009-badness-30-a-title.markdown" + +-- changeExtension test cases. +test_changeExtension_1 = M.lookup "url" rendered @?= Just "foo.php" + where + rendered = changeExtension "php" (M.singleton "url" "foo.html") |