@@ -15,9 +15,11 @@ import Test.HUnit (Assertion, assert, (@=?))
1515--------------------------------------------------------------------------------
1616import Hakyll.Core.Compiler
1717import Hakyll.Core.Identifier
18+import Hakyll.Core.Identifier.Pattern
1819import Hakyll.Core.Routes
1920import Hakyll.Core.Rules
2021import Hakyll.Core.Rules.Internal
22+import Hakyll.Core.Writable.CopyFile
2123import Hakyll.Web.Page
2224import TestSuite.Util
2325
@@ -48,6 +50,7 @@ rulesTest = withTestStore $ \store -> do
4850 , "russian.md"
4951 , raw "example.md"
5052 , raw "russian.md"
53+ , setVersion (Just "nav") "example.md"
5154 ]
5255
5356
@@ -63,3 +66,8 @@ rules = do
6366 match "*.md" $ version "raw" $ do
6467 route idRoute
6568 compile getResourceString
69+
70+ -- Regression test
71+ version "nav" $ match (fromList ["example.md"]) $ do
72+ route idRoute
73+ compile copyFileCompiler