1. Bryan O'Sullivan
  2. text

Commits

Bryan O'Sullivan  committed 05a0f73

Missed a rename.

  • Participants
  • Parent commits f869536
  • Branches default

Comments (0)

Files changed (1)

File tests/Properties.hs

View file
 sf_elemIndices p c= (L.elemIndices c . L.filter p) `eqP` (S.elemIndices c . S.filter p)
 t_elemIndices c   = L.elemIndices c`eqP` T.elemIndices c
 tl_elemIndices c  = (fmap fromIntegral . L.elemIndices c) `eqP` TL.elemIndices c
-sf_count p c      = (L.length . L.elemIndices c . L.filter p) `eqP` (S.countChar c . S.filter p)
-t_count c         = (L.length . L.elemIndices c) `eqP` T.countChar c
-tl_count c        = (fromIntegral . L.length . L.elemIndices c) `eqP` TL.countChar c
+sf_countChar p c      = (L.length . L.elemIndices c . L.filter p) `eqP` (S.countChar c . S.filter p)
+t_countChar c         = (L.length . L.elemIndices c) `eqP` T.countChar c
+tl_countChar c        = (fromIntegral . L.length . L.elemIndices c) `eqP` TL.countChar c
 t_zip s           = L.zip s `eqP` T.zip (packS s)
 tl_zip s          = L.zip s `eqP` TL.zip (packS s)
 sf_zipWith p c s  = (L.zipWith c (L.filter p s) . L.filter p) `eqP` (unpackS . S.zipWith c (S.filter p $ packS s) . S.filter p)
     testProperty "sf_elemIndices" sf_elemIndices,
     testProperty "t_elemIndices" t_elemIndices,
     testProperty "tl_elemIndices" tl_elemIndices,
-    testProperty "sf_count" sf_count,
-    testProperty "t_count" t_count,
-    testProperty "tl_count" tl_count
+    testProperty "sf_countChar" sf_countChar,
+    testProperty "t_countChar" t_countChar,
+    testProperty "tl_countChar" tl_countChar
   ],
 
   testGroup "zips" [