text / tests / Properties.hs

The default branch has multiple heads

Diff from to

tests/Properties.hs

 t_tails           = L.tails       `eqP` (map unpackS . T.tails)
 tl_tails          = L.tails       `eqP` (map unpackS . TL.tails)
 
-t_findSplit s           = T.split s `eq` splitty
-  where splitty t       = case T.find s t of
+t_findSplit s t         = (T.split s `eq` splitty) u
+  where splitty v       = case T.find s v  of
                             (x,xs) -> x : L.map (T.drop (T.length s) . fst) xs
+        u = T.concat [t,s,t]
+tl_findSplit s t        = (TL.split s `eq` splitty) u
+  where splitty v       = case TL.find s v of
+                            (x,xs) -> x : L.map (TL.drop (TL.length s) . fst) xs
+        u = TL.concat [t,s,t]
 t_split_split s         = unsquare ((T.split s `eq` Slow.split s) .
                                     T.intercalate s)
 tl_split_split s        = unsquare (((TL.split (chunkify s) . chunkify) `eq`
 
     testGroup "breaking many" [
       testProperty "t_findSplit" t_findSplit,
+      testProperty "tl_findSplit" tl_findSplit,
       testProperty "t_split_split" t_split_split,
       testProperty "tl_split_split" tl_split_split,
       testProperty "t_split_i" t_split_i,
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.