summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/Hakyll/Core/Util/String/Tests.hs10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/Hakyll/Core/Util/String/Tests.hs b/tests/Hakyll/Core/Util/String/Tests.hs
index d5dcdb7..973f6ff 100644
--- a/tests/Hakyll/Core/Util/String/Tests.hs
+++ b/tests/Hakyll/Core/Util/String/Tests.hs
@@ -28,6 +28,16 @@ tests = testGroup "Hakyll.Core.Util.String.Tests" $ concat
, fromAssertions "splitAll"
[ ["λ", "∀x.x", "hi"] @=? splitAll ", *" "λ, ∀x.x, hi"
]
+
+ , 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 "" ""
+ ]
]
where