on master help sign in
Rename some tests.

--HG-- extra : convert_revision : 5df737832c999bc843ef9e1a49663ab396cb7047

commitf8a8c566421652ffec793cc8a2ddd9852efc41a7 authorBryan O'Sullivan <bos@serpentine.com> dateTue 6 Oct 2009, 21:44 (17 years ago) parent0e92d3f
1 file changed+8−8
tests/Properties.hs+8−8
tests/Properties.hs+8−8
@@ -385,10 +385,10 @@ t_strip = T.dropAround isSpace `eq` T.strip
385385tl_strip = TL.dropAround isSpace `eq` TL.strip
386386t_splitAt n = L.splitAt n `eqP` (unpack2 . T.splitAt n)
387387tl_splitAt n = L.splitAt n `eqP` (unpack2 . TL.splitAt (fromIntegral n))
388−t_span p = L.span p `eqP` (unpack2 . T.spanBy p)
389−tl_span p = L.span p `eqP` (unpack2 . TL.spanBy p)
390−t_break p = L.break p `eqP` (unpack2 . T.breakBy p)
391−tl_break p = L.break p `eqP` (unpack2 . TL.breakBy p)
388+t_spanBy p = L.span p `eqP` (unpack2 . T.spanBy p)
389+tl_spanBy p = L.span p `eqP` (unpack2 . TL.spanBy p)
390+t_breakBy p = L.break p `eqP` (unpack2 . T.breakBy p)
391+tl_breakBy p = L.break p `eqP` (unpack2 . TL.breakBy p)
392392t_group = L.group `eqP` (map unpackS . T.group)
393393tl_group = L.group `eqP` (map unpackS . TL.group)
394394t_groupBy p = L.groupBy p `eqP` (map unpackS . T.groupBy p)
@@ -768,10 +768,10 @@ tests = [
768768 testProperty "tl_strip" tl_strip,
769769 testProperty "t_splitAt" t_splitAt,
770770 testProperty "tl_splitAt" tl_splitAt,
771− testProperty "t_span" t_span,
772− testProperty "tl_span" tl_span,
773− testProperty "t_break" t_break,
774− testProperty "tl_break" tl_break,
771+ testProperty "t_spanBy" t_spanBy,
772+ testProperty "tl_spanBy" tl_spanBy,
773+ testProperty "t_breakBy" t_breakBy,
774+ testProperty "tl_breakBy" tl_breakBy,
775775 testProperty "t_group" t_group,
776776 testProperty "tl_group" tl_group,
777777 testProperty "t_groupBy" t_groupBy,