From 93db3d652f37004075401f278433d7090beaf221 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 30 Nov 2012 10:40:46 +0100 Subject: Broken test case for routes in group/list combo See ab34c2945196c51bcb9850163395a9c7b188ddde --- tests/Hakyll/Core/Rules/Tests.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'tests') 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" ] -- cgit v1.2.3