From 18b6ac5ad42e50e75b9ee9fcfc8aef00f5a00957 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 6 Jan 2013 09:51:09 +0100 Subject: Add create in addition to match --- tests/Hakyll/Core/Identifier/Tests.hs | 13 +------------ tests/Hakyll/Core/Runtime/Tests.hs | 2 +- 2 files changed, 2 insertions(+), 13 deletions(-) (limited to 'tests') 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" 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" -- cgit v1.2.3