blob: e6b222f73b39e3b8012c1353a80133539360ef7a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
--------------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
module Hakyll.Web.Pandoc.FileType.Tests
( tests
) where
--------------------------------------------------------------------------------
import Test.Framework (Test, testGroup)
import Test.HUnit ((@=?))
--------------------------------------------------------------------------------
import Hakyll.Web.Pandoc.FileType
import TestSuite.Util
--------------------------------------------------------------------------------
tests :: Test
tests = testGroup "Hakyll.Web.Pandoc.FileType.Tests" $
fromAssertions "fileType"
[ Markdown @=? fileType "index.md"
, Rst @=? fileType "about/foo.rst"
, LiterateHaskell Markdown @=? fileType "posts/bananas.lhs"
, LiterateHaskell LaTeX @=? fileType "posts/bananas.tex.lhs"
]
|