Add create in addition to match

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"