diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-25 15:12:20 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-25 15:12:20 +0100 |
| commit | 8e78fe04f69f3d3ff444518844f6755fd379a6aa (patch) | |
| tree | 635a91673c3207fb780fc3b3c272978b9c76cf2c /tests | |
| parent | d41500758f884a4e7a54a4696a2a521b4465242f (diff) | |
| download | hakyll-8e78fe04f69f3d3ff444518844f6755fd379a6aa.tar.gz | |
Made Arbitrary Page instance.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Main.hs | 2 | ||||
| -rw-r--r-- | tests/Page.hs | 22 |
2 files changed, 24 insertions, 0 deletions
diff --git a/tests/Main.hs b/tests/Main.hs index cdd46dc..9022dda 100644 --- a/tests/Main.hs +++ b/tests/Main.hs @@ -7,6 +7,7 @@ import Test.Framework.Providers.QuickCheck2 import CompressCSS import Context import File +import Page import Regex import Template import Util @@ -14,6 +15,7 @@ import Util main = defaultMain [ compressCSSGroup , contextGroup , fileGroup + , pageGroup , regexGroup , templateGroup , utilGroup diff --git a/tests/Page.hs b/tests/Page.hs new file mode 100644 index 0000000..705b6ba --- /dev/null +++ b/tests/Page.hs @@ -0,0 +1,22 @@ +module Page + ( pageGroup + ) where + +import qualified Data.Map as M + +import Data.Binary +import Test.Framework (testGroup) +import Test.Framework.Providers.HUnit +import Test.Framework.Providers.QuickCheck2 +import Test.HUnit + +import Text.Hakyll.Page + +-- Page test group. +pageGroup = testGroup "Page" + [ testProperty "prop_page_encode_id" prop_page_encode_id + ] + +-- Test encoding/decoding of pages. +prop_page_encode_id :: Page -> Bool +prop_page_encode_id page = decode (encode page) == page |