summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/Hakyll/Core/Rules/Tests.hs11
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/Hakyll/Core/Rules/Tests.hs b/tests/Hakyll/Core/Rules/Tests.hs
index a8a9dc1..4fcb19d 100644
--- a/tests/Hakyll/Core/Rules/Tests.hs
+++ b/tests/Hakyll/Core/Rules/Tests.hs
@@ -42,15 +42,16 @@ rulesTest = withTestStore $ \store -> do
-- 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"
- Just "example.md" @=? runRoutes routes (raw "example.md")
+ Just "example.md" @=? runRoutes routes (sv "raw" "example.md")
+ Just "example.md" @=? runRoutes routes (sv "nav" "example.md")
where
- raw = setVersion (Just "raw")
+ sv g = setVersion (Just g)
expected =
[ "example.md"
, "russian.md"
- , raw "example.md"
- , raw "russian.md"
- , setVersion (Just "nav") "example.md"
+ , sv "raw" "example.md"
+ , sv "raw" "russian.md"
+ , sv "nav" "example.md"
]