From 6814ff2e9bbe8bc51834c948ae14a59a326b3789 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 17 Jun 2013 12:01:22 +0200 Subject: Only add teaser when is there --- tests/Hakyll/Core/Util/String/Tests.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'tests') diff --git a/tests/Hakyll/Core/Util/String/Tests.hs b/tests/Hakyll/Core/Util/String/Tests.hs index 973f6ff..56bdd1a 100644 --- a/tests/Hakyll/Core/Util/String/Tests.hs +++ b/tests/Hakyll/Core/Util/String/Tests.hs @@ -30,13 +30,13 @@ tests = testGroup "Hakyll.Core.Util.String.Tests" $ concat ] , fromAssertions "needlePrefix" - [ "ab" @=? needlePrefix "cd" "abcde" - , "xx" @=? needlePrefix "ab" "xxab" - , "xx" @=? needlePrefix "a" "xx" - , "x" @=? needlePrefix "ab" "xabxab" - , "" @=? needlePrefix "ab" "abc" - , "" @=? needlePrefix "ab" "abab" - , "" @=? needlePrefix "" "" + [ Just "ab" @=? needlePrefix "cd" "abcde" + , Just "xx" @=? needlePrefix "ab" "xxab" + , Nothing @=? needlePrefix "a" "xx" + , Just "x" @=? needlePrefix "ab" "xabxab" + , Just "" @=? needlePrefix "ab" "abc" + , Just "" @=? needlePrefix "ab" "abab" + , Nothing @=? needlePrefix "" "" ] ] -- cgit v1.2.3