Permalink
Browse files

Broken test case for routes in group/list combo

  • Loading branch information...
1 parent c188cab commit ab34c2945196c51bcb9850163395a9c7b188ddde @jaspervdj committed Nov 30, 2012
Showing with 6 additions and 2 deletions.
  1. +6 −2 tests/Hakyll/Core/Rules/Tests.hs
@@ -38,8 +38,12 @@ provider = dummyResourceProvider $ M.fromList $ map (flip (,) "No content")
case01 :: Assertion
case01 = do
p <- provider
- let ruleSet = runRules rules p
- expected @=? S.fromList (map fst (rulesCompilers ruleSet))
+ let ruleSet = runRules rules p
+ identifiers = map fst $ rulesCompilers ruleSet
+ routes = rulesRoutes ruleSet
+ expected @=? S.fromList identifiers
+ Just "posts/a-post.markdown" @=?
+ runRoutes routes (Identifier (Just "nav") "posts/a-post.markdown")
where
expected = S.fromList
[ Identifier Nothing "posts/a-post.markdown"

0 comments on commit ab34c29

Please sign in to comment.