git.iko.soy/text
on master help sign in
Drop replicateChar from tests, too.

--HG-- extra : convert_revision : f0c35c63875a6b8975cb338ed9cea0ff87c875fb

commit9c33dad641ae12a844a6ae681dba1a4a8d49d61d authorBryan O'Sullivan <bos@serpentine.com> dateTue 6 Oct 2009, 23:26 (17 years ago) parent83a2e4e
1 file changed−4
compare with master
unifiedsplit
tests/Properties.hs−4
tests/Properties.hs−4
@@ -330,8 +330,6 @@ replicate n l = concat (L.replicate n l)
330330
331331t_replicate n = replicate n `eq` (unpackS . T.replicate n . packS)
332332tl_replicate n = replicate n `eq` (unpackS . TL.replicate (fromIntegral n) . packS)
333−t_replicateChar n = L.replicate n `eq` (unpackS . T.replicateChar n)
334−tl_replicateChar n= L.replicate n `eq` (unpackS . TL.replicateChar (fromIntegral n))
335333
336334unf :: Int -> Char -> Maybe (Char, Char)
337335unf n c | fromEnum c * 100 > n = Nothing
@@ -722,8 +720,6 @@ tests = [
722720 testGroup "unfolds" [
723721 testProperty "t_replicate" t_replicate,
724722 testProperty "tl_replicate" tl_replicate,
725− testProperty "t_replicateChar" t_replicateChar,
726− testProperty "tl_replicateChar" tl_replicateChar,
727723 testProperty "t_unfoldr" t_unfoldr,
728724 testProperty "tl_unfoldr" tl_unfoldr,
729725 testProperty "t_unfoldrN" t_unfoldrN,