fbc23ee · hakyll · git.iko.soy

Update test suite

commitfbc23ee892b37c0bbc663e2531daa127dd091d30 authorJasper Van der Jeugt <m@jaspervdj.be> dateFri 3 May 2013, 11:35 (14 years ago) parent6d47d9c

2 files changed+3−2

unifiedsplit

tests/Hakyll/Core/Routes/Tests.hs+2−1

@@ -39,5 +39,6 @@ tests = testGroup "Hakyll.Core.Routes.Tests" $ fromAssertions "runRoutes"

3939--------------------------------------------------------------------------------

4040testRoutes :: FilePath -> Routes -> Identifier -> Assertion

4141testRoutes expected r id' = do

42− route <- runRoutes r (error "Hakyll.Core.Routes.Tests: no provider") id'

42+ (route, _) <- runRoutes r

43+ (error "Hakyll.Core.Routes.Tests: no provider") id'

4344 Just expected @=? route

tests/Hakyll/Core/Rules/Tests.hs+1−1

@@ -41,7 +41,7 @@ case01 = do

4141 let identifiers = S.fromList $ map fst $ rulesCompilers ruleSet

4242 routes = rulesRoutes ruleSet

4343 checkRoute ex i =

44− runRoutes routes provider i >>= \r -> Just ex @=? r

44+ runRoutes routes provider i >>= \(r, _) -> Just ex @=? r

4545

4646 -- Test that we have some identifiers and that the routes work out

4747 assert $ all (`S.member` identifiers) expected