diff options
| author | Laurent P. René de Cotret <LaurentRDC@users.noreply.github.com> | 2020-05-30 08:14:21 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-05-30 14:14:21 +0200 |
| commit | 8afbb62ed5e969d78d8664df205646504f52f278 (patch) | |
| tree | 3a2d9046a39eb239183832f43bd7121b5b7fd16e /tests/Hakyll/Core/Rules | |
| parent | 9656e78869dd8248a8558671a48d2e52dbe7edb5 (diff) | |
| download | hakyll-8afbb62ed5e969d78d8664df205646504f52f278.tar.gz | |
Miscellaneous Windows-specific fixes and CI
Diffstat (limited to 'tests/Hakyll/Core/Rules')
| -rw-r--r-- | tests/Hakyll/Core/Rules/Tests.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Hakyll/Core/Rules/Tests.hs b/tests/Hakyll/Core/Rules/Tests.hs index 24b5b8c..80baf02 100644 --- a/tests/Hakyll/Core/Rules/Tests.hs +++ b/tests/Hakyll/Core/Rules/Tests.hs @@ -17,7 +17,7 @@ import Hakyll.Core.Metadata import Hakyll.Core.Routes import Hakyll.Core.Rules import Hakyll.Core.Rules.Internal -import System.FilePath ((</>)) +import System.FilePath ((</>), normalise) import Test.Tasty (TestTree, testGroup) import Test.Tasty.HUnit (Assertion, (@=?)) import TestSuite.Util @@ -39,7 +39,7 @@ case01 = do let identifiers = S.fromList $ map fst $ rulesCompilers ruleSet routes = rulesRoutes ruleSet checkRoute ex i = - runRoutes routes provider i >>= \(r, _) -> Just ex @=? r + runRoutes routes provider i >>= \(r, _) -> Just (normalise ex) @=? r -- Test that we have some identifiers and that the routes work out S.fromList expected @=? identifiers |