summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/Hakyll/Core/Identifier/Tests.hs13
-rw-r--r--tests/Hakyll/Core/Runtime/Tests.hs2
2 files changed, 2 insertions, 13 deletions
diff --git a/tests/Hakyll/Core/Identifier/Tests.hs b/tests/Hakyll/Core/Identifier/Tests.hs
index 8a8ed7c..2518022 100644
--- a/tests/Hakyll/Core/Identifier/Tests.hs
+++ b/tests/Hakyll/Core/Identifier/Tests.hs
@@ -6,7 +6,6 @@ module Hakyll.Core.Identifier.Tests
--------------------------------------------------------------------------------
-import Data.Monoid (mappend, mempty)
import Test.Framework (Test, testGroup)
import Test.HUnit ((@=?))
@@ -20,22 +19,12 @@ import TestSuite.Util
--------------------------------------------------------------------------------
tests :: Test
tests = testGroup "Hakyll.Core.Identifier.Tests" $ concat
- [ isLiteralTests
- , captureTests
+ [ captureTests
, matchesTests
]
--------------------------------------------------------------------------------
-isLiteralTests :: [Test]
-isLiteralTests = fromAssertions "isLiteral"
- [ Just "index.html" @=? fromLiteral "index.html"
- , Nothing @=? fromLiteral "posts/*.markdown"
- , Just "test.txt" @=? fromLiteral ("test.txt" `mappend` mempty)
- ]
-
-
---------------------------------------------------------------------------------
captureTests :: [Test]
captureTests = fromAssertions "capture"
[ Just ["bar"] @=? capture "foo/**" "foo/bar"
diff --git a/tests/Hakyll/Core/Runtime/Tests.hs b/tests/Hakyll/Core/Runtime/Tests.hs
index fa1446f..4b41bf5 100644
--- a/tests/Hakyll/Core/Runtime/Tests.hs
+++ b/tests/Hakyll/Core/Runtime/Tests.hs
@@ -34,7 +34,7 @@ case01 = withTestConfiguration $ \config -> do
>>= saveSnapshot "raw"
>>= return . renderPandoc
- match "bodies.txt" $ do
+ create ["bodies.txt"] $ do
route idRoute
compile $ do
items <- loadAllSnapshots "*.md" "raw"