From 5c76f782d7b85b41e2bfeb2dfb65994bdb77a591 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Thu, 29 Nov 2012 23:09:11 +0100 Subject: Add test case for group/list combo Works by default on this branch, for more information see commit c12ef90f802be9e1669c11a4289597a7a47e741c --- tests/Hakyll/Core/Rules/Tests.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'tests/Hakyll/Core') diff --git a/tests/Hakyll/Core/Rules/Tests.hs b/tests/Hakyll/Core/Rules/Tests.hs index 4f0b40e..a8a9dc1 100644 --- a/tests/Hakyll/Core/Rules/Tests.hs +++ b/tests/Hakyll/Core/Rules/Tests.hs @@ -15,9 +15,11 @@ import Test.HUnit (Assertion, assert, (@=?)) -------------------------------------------------------------------------------- import Hakyll.Core.Compiler import Hakyll.Core.Identifier +import Hakyll.Core.Identifier.Pattern import Hakyll.Core.Routes import Hakyll.Core.Rules import Hakyll.Core.Rules.Internal +import Hakyll.Core.Writable.CopyFile import Hakyll.Web.Page import TestSuite.Util @@ -48,6 +50,7 @@ rulesTest = withTestStore $ \store -> do , "russian.md" , raw "example.md" , raw "russian.md" + , setVersion (Just "nav") "example.md" ] @@ -63,3 +66,8 @@ rules = do match "*.md" $ version "raw" $ do route idRoute compile getResourceString + + -- Regression test + version "nav" $ match (fromList ["example.md"]) $ do + route idRoute + compile copyFileCompiler -- cgit v1.2.3