Add doc tests for splitEndBySeq and splitEndBySeq_

Author: adithyaov

core/src/Streamly/Internal/Data/Stream/Nesting.hs

@@ -3601,6 +3601,58 @@ splitOnSuffixSeq withSep patArr (Fold fstep initial _ final) (Stream step state)
 --
 -- >>> splitEndBySeq pat f = Stream.foldMany (Fold.takeEndBySeq pat f)
 --
+-- Usage:
+--
+-- >>> splitOnSuffix p xs = Stream.fold Fold.toList $ Stream.splitEndBySeq (Array.fromList p) Fold.toList (Stream.fromList xs)
+--
+-- >>> splitOnSuffix "" ""
+-- []
+--
+-- >>> splitOnSuffix "." ""
+-- []
+--
+-- >>> splitOnSuffix ".." ""
+-- []
+--
+-- >>> splitOnSuffix "..." ""
+-- []
+--
+-- >>> splitOnSuffix "" "a...b"
+-- ["a",".",".",".","b"]
+--
+-- >>> splitOnSuffix "." "a...b"
+-- ["a.",".",".","b"]
+--
+-- >>> splitOnSuffix ".." "a...b"
+-- ["a..",".b"]
+--
+-- >>> splitOnSuffix "..." "a...b"
+-- ["a...","b"]
+--
+-- >>> splitOnSuffix "." "abc"
+-- ["abc"]
+--
+-- >>> splitOnSuffix ".." "abc"
+-- ["abc"]
+--
+-- >>> splitOnSuffix "..." "abc"
+-- ["abc"]
+--
+-- >>> splitOnSuffix "." "."
+-- ["."]
+--
+-- >>> splitOnSuffix ".." ".."
+-- [".."]
+--
+-- >>> splitOnSuffix "..." "..."
+-- ["..."]
+--
+-- >>> splitOnSuffix "." ".a"
+-- [".","a"]
+--
+-- >>> splitOnSuffix "." "a."
+-- ["a."]
+--
 -- Uses Rabin-Karp algorithm for substring search.
 --
 {-# INLINE_NORMAL splitEndBySeq #-}
@@ -3618,6 +3670,58 @@ splitEndBySeq = splitOnSuffixSeq True
 --
 -- >>> splitEndBySeq_ pat f = Stream.foldMany (Fold.takeEndBySeq_ pat f)
 --
+-- Usage:
+--
+-- >>> splitOnSuffix p xs = Stream.fold Fold.toList $ Stream.splitEndBySeq_ (Array.fromList p) Fold.toList (Stream.fromList xs)
+--
+-- >>> splitOnSuffix "" ""
+-- []
+--
+-- >>> splitOnSuffix "." ""
+-- []
+--
+-- >>> splitOnSuffix ".." ""
+-- []
+--
+-- >>> splitOnSuffix "..." ""
+-- []
+--
+-- >>> splitOnSuffix "" "a...b"
+-- ["a",".",".",".","b"]
+--
+-- >>> splitOnSuffix "." "a...b"
+-- ["a","","","b"]
+--
+-- >>> splitOnSuffix ".." "a...b"
+-- ["a",".b"]
+--
+-- >>> splitOnSuffix "..." "a...b"
+-- ["a","b"]
+--
+-- >>> splitOnSuffix "." "abc"
+-- ["abc"]
+--
+-- >>> splitOnSuffix ".." "abc"
+-- ["abc"]
+--
+-- >>> splitOnSuffix "..." "abc"
+-- ["abc"]
+--
+-- >>> splitOnSuffix "." "."
+-- [""]
+--
+-- >>> splitOnSuffix ".." ".."
+-- [""]
+--
+-- >>> splitOnSuffix "..." "..."
+-- [""]
+--
+-- >>> splitOnSuffix "." ".a"
+-- ["","a"]
+--
+-- >>> splitOnSuffix "." "a."
+-- ["a"]
+--
 -- Uses Rabin-Karp algorithm for substring search.
 --
 {-# INLINE_NORMAL splitEndBySeq_ #-}