From 5d7e252d27ef3a47ea119741108e375bdfc850c3 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sat, 30 Mar 2013 10:58:02 +0100 Subject: UnixFilter improvements Closes #128 --- tests/Hakyll/Core/UnixFilter/Tests.hs | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/Hakyll/Core/UnixFilter/Tests.hs b/tests/Hakyll/Core/UnixFilter/Tests.hs index 350c857..04051e3 100644 --- a/tests/Hakyll/Core/UnixFilter/Tests.hs +++ b/tests/Hakyll/Core/UnixFilter/Tests.hs @@ -6,6 +6,7 @@ module Hakyll.Core.UnixFilter.Tests -------------------------------------------------------------------------------- +import Data.List (isInfixOf) import Test.Framework (Test, testGroup) import Test.Framework.Providers.HUnit (testCase) import qualified Test.HUnit as H @@ -13,6 +14,7 @@ import qualified Test.HUnit as H -------------------------------------------------------------------------------- import Hakyll.Core.Compiler +import Hakyll.Core.Compiler.Internal import Hakyll.Core.Item import Hakyll.Core.UnixFilter import TestSuite.Util @@ -21,7 +23,8 @@ import TestSuite.Util -------------------------------------------------------------------------------- tests :: Test tests = testGroup "Hakyll.Core.UnixFilter.Tests" - [ testCase "unixFilter rev" unixFilterRev + [ testCase "unixFilter rev" unixFilterRev + , testCase "unixFilter false" unixFilterFalse ] @@ -37,3 +40,17 @@ unixFilterRev = do where compiler = getResourceString >>= withItemBody (unixFilter "rev" []) rev = map reverse . lines + + +-------------------------------------------------------------------------------- +unixFilterFalse :: H.Assertion +unixFilterFalse = do + store <- newTestStore + provider <- newTestProvider store + result <- testCompiler store provider "russian.md" compiler + H.assert $ case result of + CompilerError e -> "exit code" `isInfixOf` e + _ -> False + cleanTestEnv + where + compiler = getResourceString >>= withItemBody (unixFilter "false" []) -- cgit v1.2.3