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