diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Hakyll/Core/Rules/Tests.hs | 11 |
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" ] |