Bryan O'Sullivan committed b733b5b

Drop replicateChar from tests, too.

Comments (0)

Files changed (1)


 t_replicate n     = replicate n `eq` (unpackS . T.replicate n . packS)
 tl_replicate n    = replicate n `eq` (unpackS . TL.replicate (fromIntegral n) . packS)
-t_replicateChar n = L.replicate n `eq` (unpackS . T.replicateChar n)
-tl_replicateChar n= L.replicate n `eq` (unpackS . TL.replicateChar (fromIntegral n))
 unf :: Int -> Char -> Maybe (Char, Char)
 unf n c | fromEnum c * 100 > n = Nothing
     testGroup "unfolds" [
       testProperty "t_replicate" t_replicate,
       testProperty "tl_replicate" tl_replicate,
-      testProperty "t_replicateChar" t_replicateChar,
-      testProperty "tl_replicateChar" tl_replicateChar,
       testProperty "t_unfoldr" t_unfoldr,
       testProperty "tl_unfoldr" tl_unfoldr,
       testProperty "t_unfoldrN" t_unfoldrN,
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
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.