diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-06-17 12:01:22 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-06-17 12:01:22 +0200 |
| commit | 6814ff2e9bbe8bc51834c948ae14a59a326b3789 (patch) | |
| tree | ef8c0c867485cab905609b2080ee71f5b93c3808 /tests | |
| parent | 25e15846a2476db365809b06333cc0fab2d85221 (diff) | |
| download | hakyll-6814ff2e9bbe8bc51834c948ae14a59a326b3789.tar.gz | |
Only add teaser when <!--more--> is there
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Hakyll/Core/Util/String/Tests.hs | 14 |
1 files changed, 7 insertions, 7 deletions
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 "" "" ] ] |