2012-11-26 15:11:37 +00:00
|
|
|
--------------------------------------------------------------------------------
|
2011-05-24 12:40:45 +00:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Hakyll.Core.Rules.Tests
|
2011-05-24 21:17:32 +00:00
|
|
|
( tests
|
|
|
|
) where
|
2011-05-24 12:40:45 +00:00
|
|
|
|
|
|
|
|
2012-11-26 15:11:37 +00:00
|
|
|
--------------------------------------------------------------------------------
|
2013-01-08 11:47:55 +00:00
|
|
|
import Data.IORef (IORef, newIORef, readIORef,
|
|
|
|
writeIORef)
|
2012-11-26 15:11:37 +00:00
|
|
|
import qualified Data.Set as S
|
|
|
|
import Test.Framework (Test, testGroup)
|
|
|
|
import Test.Framework.Providers.HUnit (testCase)
|
|
|
|
import Test.HUnit (Assertion, assert, (@=?))
|
2011-05-24 12:40:45 +00:00
|
|
|
|
|
|
|
|
2012-11-26 15:11:37 +00:00
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Hakyll.Core.Compiler
|
2013-01-06 17:33:00 +00:00
|
|
|
import Hakyll.Core.File
|
2012-11-26 15:11:37 +00:00
|
|
|
import Hakyll.Core.Identifier
|
2012-11-29 22:09:11 +00:00
|
|
|
import Hakyll.Core.Identifier.Pattern
|
2012-11-26 15:11:37 +00:00
|
|
|
import Hakyll.Core.Routes
|
|
|
|
import Hakyll.Core.Rules
|
|
|
|
import Hakyll.Core.Rules.Internal
|
2012-12-15 17:02:47 +00:00
|
|
|
import Hakyll.Web.Pandoc
|
2012-11-26 15:11:37 +00:00
|
|
|
import TestSuite.Util
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
tests :: Test
|
|
|
|
tests = testGroup "Hakyll.Core.Rules.Tests"
|
2011-05-24 20:29:47 +00:00
|
|
|
[ testCase "runRules" rulesTest
|
|
|
|
]
|
|
|
|
|
2012-11-26 15:11:37 +00:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
2011-05-24 20:29:47 +00:00
|
|
|
rulesTest :: Assertion
|
2013-01-06 17:33:00 +00:00
|
|
|
rulesTest = do
|
2013-01-08 11:47:55 +00:00
|
|
|
ioref <- newIORef False
|
2013-01-06 17:33:00 +00:00
|
|
|
store <- newTestStore
|
2012-11-26 15:11:37 +00:00
|
|
|
provider <- newTestProvider store
|
2013-01-08 11:47:55 +00:00
|
|
|
ruleSet <- runRules (rules ioref) provider
|
2012-11-26 15:11:37 +00:00
|
|
|
let identifiers = S.fromList $ map fst $ rulesCompilers ruleSet
|
|
|
|
routes = rulesRoutes ruleSet
|
|
|
|
|
|
|
|
-- Test that we have some identifiers and that the routes work out
|
|
|
|
assert $ all (`S.member` identifiers) expected
|
|
|
|
Just "example.html" @=? runRoutes routes "example.md"
|
2012-11-30 09:40:46 +00:00
|
|
|
Just "example.md" @=? runRoutes routes (sv "raw" "example.md")
|
|
|
|
Just "example.md" @=? runRoutes routes (sv "nav" "example.md")
|
2012-12-25 22:23:15 +00:00
|
|
|
Just "example.mv1" @=? runRoutes routes (sv "mv1" "example.md")
|
|
|
|
Just "example.mv2" @=? runRoutes routes (sv "mv2" "example.md")
|
2013-01-08 11:47:55 +00:00
|
|
|
readIORef ioref >>= assert
|
2011-05-24 20:29:47 +00:00
|
|
|
where
|
2012-11-30 09:40:46 +00:00
|
|
|
sv g = setVersion (Just g)
|
2012-11-26 15:11:37 +00:00
|
|
|
expected =
|
|
|
|
[ "example.md"
|
|
|
|
, "russian.md"
|
2012-11-30 09:40:46 +00:00
|
|
|
, sv "raw" "example.md"
|
|
|
|
, sv "raw" "russian.md"
|
|
|
|
, sv "nav" "example.md"
|
2011-05-24 20:29:47 +00:00
|
|
|
]
|
|
|
|
|
2011-05-24 12:40:45 +00:00
|
|
|
|
2012-11-26 15:11:37 +00:00
|
|
|
--------------------------------------------------------------------------------
|
2013-01-08 11:47:55 +00:00
|
|
|
rules :: IORef Bool -> Rules ()
|
|
|
|
rules ioref = do
|
2011-05-24 12:40:45 +00:00
|
|
|
-- Compile some posts
|
2012-11-26 15:11:37 +00:00
|
|
|
match "*.md" $ do
|
2011-05-24 12:40:45 +00:00
|
|
|
route $ setExtension "html"
|
2012-12-15 17:02:47 +00:00
|
|
|
compile pandocCompiler
|
2011-05-24 12:40:45 +00:00
|
|
|
|
2013-01-08 11:47:55 +00:00
|
|
|
-- Yeah. I don't know how else to test this stuff?
|
|
|
|
preprocess $ writeIORef ioref True
|
|
|
|
|
2011-05-24 12:40:45 +00:00
|
|
|
-- Compile them, raw
|
2012-11-26 15:11:37 +00:00
|
|
|
match "*.md" $ version "raw" $ do
|
2011-05-24 20:29:47 +00:00
|
|
|
route idRoute
|
2012-11-26 15:11:37 +00:00
|
|
|
compile getResourceString
|
2012-11-29 22:09:11 +00:00
|
|
|
|
|
|
|
-- Regression test
|
|
|
|
version "nav" $ match (fromList ["example.md"]) $ do
|
|
|
|
route idRoute
|
|
|
|
compile copyFileCompiler
|
2012-12-25 22:23:15 +00:00
|
|
|
|
|
|
|
-- Another edge case: different versions in one match
|
|
|
|
match "*.md" $ do
|
|
|
|
version "mv1" $ do
|
|
|
|
route $ setExtension "mv1"
|
|
|
|
compile getResourceString
|
|
|
|
version "mv2" $ do
|
|
|
|
route $ setExtension "mv2"
|
|
|
|
compile getResourceString
|