summaryrefslogtreecommitdiff
path: root/tests/Hakyll
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2013-06-17 12:01:22 +0200
committerJasper Van der Jeugt <m@jaspervdj.be>2013-06-17 12:01:22 +0200
commit6814ff2e9bbe8bc51834c948ae14a59a326b3789 (patch)
treeef8c0c867485cab905609b2080ee71f5b93c3808 /tests/Hakyll
parent25e15846a2476db365809b06333cc0fab2d85221 (diff)
downloadhakyll-6814ff2e9bbe8bc51834c948ae14a59a326b3789.tar.gz
Only add teaser when <!--more--> is there
Diffstat (limited to 'tests/Hakyll')
-rw-r--r--tests/Hakyll/Core/Util/String/Tests.hs14
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 "" ""
]
]