From 18b6ac5ad42e50e75b9ee9fcfc8aef00f5a00957 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Sun, 6 Jan 2013 09:51:09 +0100
Subject: Add create in addition to match

---
 tests/Hakyll/Core/Identifier/Tests.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'tests/Hakyll/Core/Identifier')

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,21 +19,11 @@ 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"
-- 
cgit v1.2.3