@@ -439,6 +439,10 @@ t_break_start (NotEmpty s) t = let (_,m) = T.break s t
439 in T.null m || s `T.isPrefixOf` m
439 in T.null m || s `T.isPrefixOf` m
440tl_break_start (NotEmpty s) t = let (_,m) = TL.break s t
440tl_break_start (NotEmpty s) t = let (_,m) = TL.break s t
441 in TL.null m || s `TL.isPrefixOf` m
441 in TL.null m || s `TL.isPrefixOf` m
442+t_breakEnd_end (NotEmpty s) t = let (m,_) = T.breakEnd s t
443+ in T.null m || s `T.isSuffixOf` m
444+tl_breakEnd_end (NotEmpty s) t = let (m,_) = TL.breakEnd s t
445+ in TL.null m || s `TL.isSuffixOf` m
442t_breakBy p = L.break p `eqP` (unpack2 . T.breakBy p)
446t_breakBy p = L.break p `eqP` (unpack2 . T.breakBy p)
443tl_breakBy p = L.break p `eqP` (unpack2 . TL.breakBy p)
447tl_breakBy p = L.break p `eqP` (unpack2 . TL.breakBy p)
444t_group = L.group `eqP` (map unpackS . T.group)
448t_group = L.group `eqP` (map unpackS . T.group)
@@ -942,6 +946,8 @@ tests = [
942 testProperty "tl_break_id" tl_break_id,
946 testProperty "tl_break_id" tl_break_id,
943 testProperty "t_break_start" t_break_start,
947 testProperty "t_break_start" t_break_start,
944 testProperty "tl_break_start" tl_break_start,
948 testProperty "tl_break_start" tl_break_start,
949+ testProperty "t_breakEnd_end" t_breakEnd_end,
950+ testProperty "tl_breakEnd_end" tl_breakEnd_end,
945 testProperty "t_breakBy" t_breakBy,
951 testProperty "t_breakBy" t_breakBy,
946 testProperty "tl_breakBy" tl_breakBy,
952 testProperty "tl_breakBy" tl_breakBy,
947 testProperty "t_group" t_group,
953 testProperty "t_group" t_group,