git.iko.soy/text
on master help sign in
Fix that silly broken test.
a2b88c8Bryan O'Sullivan
tests/Properties.hs+2−2
compare with master
unifiedsplit
@@ -398,8 +398,8 @@ tl_inits = L.inits `eqP` (map unpackS . TL.inits)
398t_tails = L.tails `eqP` (map unpackS . T.tails)
398t_tails = L.tails `eqP` (map unpackS . T.tails)
399tl_tails = L.tails `eqP` (map unpackS . TL.tails)
399tl_tails = L.tails `eqP` (map unpackS . TL.tails)
400
400
401−findSplit s t = let (x,xs) = T.find s t
401+findSplit s t = case T.find s t of
402− in x : L.map (T.drop (T.length s)) xs
402+ (x,xs) -> x : L.map (T.drop (T.length s)) xs
403
403
404t_findSplit s = T.split s `eq` findSplit s
404t_findSplit s = T.split s `eq` findSplit s
405t_split_split s = T.split s `eq` Slow.split s
405t_split_split s = T.split s `eq` Slow.split s