git.iko.soy/hakyll
on master help sign in
Add test case for group/list combo
5c76f78Jasper Van der Jeugt
tests/Hakyll/Core/Rules/Tests.hs+8
compare with master
unifiedsplit
@@ -15,9 +15,11 @@ import Test.HUnit (Assertion, assert, (@=?))
15--------------------------------------------------------------------------------
15--------------------------------------------------------------------------------
16import Hakyll.Core.Compiler
16import Hakyll.Core.Compiler
17import Hakyll.Core.Identifier
17import Hakyll.Core.Identifier
18+import Hakyll.Core.Identifier.Pattern
18import Hakyll.Core.Routes
19import Hakyll.Core.Routes
19import Hakyll.Core.Rules
20import Hakyll.Core.Rules
20import Hakyll.Core.Rules.Internal
21import Hakyll.Core.Rules.Internal
22+import Hakyll.Core.Writable.CopyFile
21import Hakyll.Web.Page
23import Hakyll.Web.Page
22import TestSuite.Util
24import TestSuite.Util
23
25
@@ -48,6 +50,7 @@ rulesTest = withTestStore $ \store -> do
48 , "russian.md"
50 , "russian.md"
49 , raw "example.md"
51 , raw "example.md"
50 , raw "russian.md"
52 , raw "russian.md"
53+ , setVersion (Just "nav") "example.md"
51 ]
54 ]
52
55
53
56
@@ -63,3 +66,8 @@ rules = do
63 match "*.md" $ version "raw" $ do
66 match "*.md" $ version "raw" $ do
64 route idRoute
67 route idRoute
65 compile getResourceString
68 compile getResourceString
69+
70+ -- Regression test
71+ version "nav" $ match (fromList ["example.md"]) $ do
72+ route idRoute
73+ compile copyFileCompiler