From 1dff099486f5baaf7bebd74eb70247647ab342f0 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 24 May 2011 14:40:45 +0200
Subject: Rules tests should look like that

---
 tests/Hakyll/Core/Rules/Tests.hs | 41 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 tests/Hakyll/Core/Rules/Tests.hs

diff --git a/tests/Hakyll/Core/Rules/Tests.hs b/tests/Hakyll/Core/Rules/Tests.hs
new file mode 100644
index 0000000..42b95fc
--- /dev/null
+++ b/tests/Hakyll/Core/Rules/Tests.hs
@@ -0,0 +1,41 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -fno-warn-unused-do-bind #-}
+module Hakyll.Core.Rules.Tests
+    where
+
+import qualified Data.Map as M
+
+import Test.Framework
+
+import Hakyll.Core.Rules
+import Hakyll.Core.Identifier
+import Hakyll.Core.Routes
+import Hakyll.Core.Compiler
+import Hakyll.Core.Resource.Provider
+import Hakyll.Core.Resource.Provider.Dummy
+import Hakyll.Web.Page
+
+-- | Dummy resource provider
+--
+provider :: IO ResourceProvider
+provider = dummyResourceProvider $ M.fromList $ map (flip (,) "No content")
+    [ "posts/a-post.markdown"
+    , "posts/some-other-post.markdown"
+    ]
+
+-- | Example rules
+--
+rules :: Rules
+rules = do
+    -- Compile some posts
+    match "posts/*" $ do
+        route $ setExtension "html"
+        compile pageCompiler
+
+    -- Compile them, raw
+    group "raw" $ do
+        match "posts/*" $ do
+            route $ setExtension "html"
+            compile getResourceString
+
+    return ()
-- 
cgit v1.2.3