diff options
| -rw-r--r-- | tests/Hakyll/Core/Util/String/Tests.hs | 10 |
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 |