diff --git a/data/Default.hs b/data/Default.hs
--- a/data/Default.hs
+++ b/data/Default.hs
@@ -101,6 +101,12 @@
 error = all ((/=) a) ==> notElem a
 error = all (/= a) ==> notElem a
 error = all (a /=) ==> notElem a
+error = findIndex ((==) a) ==> elemIndex a
+error = findIndex (a ==) ==> elemIndex a
+error = findIndex (== a) ==> elemIndex a
+error = findIndices ((==) a) ==> elemIndices a
+error = findIndices (a ==) ==> elemIndices a
+error = findIndices (== a) ==> elemIndices a
 
 -- FOLDS
 
diff --git a/hlint.cabal b/hlint.cabal
--- a/hlint.cabal
+++ b/hlint.cabal
@@ -1,7 +1,7 @@
 cabal-version:      >= 1.6
 build-type:         Simple
 name:               hlint
-version:            1.8.29
+version:            1.8.30
 -- license is GPL v2 only
 license:            GPL
 license-file:       LICENSE
@@ -41,7 +41,7 @@
         base == 4.*, process, filepath, directory, containers,
         transformers >= 0.0 && < 0.4,
         hscolour >= 1.17 && < 1.21,
-        cpphs >= 1.11 && < 1.14,
+        cpphs >= 1.11 && < 1.15,
         haskell-src-exts >= 1.11 && < 1.14,
         uniplate >= 1.5 && < 1.7
 
diff --git a/src/Hint/Naming.hs b/src/Hint/Naming.hs
--- a/src/Hint/Naming.hs
+++ b/src/Hint/Naming.hs
@@ -7,6 +7,7 @@
 
     Apply this to things that would get exported by default only
     Also allow prop_ as it's a standard QuickCheck idiom
+    Also allow case_ as it's a standard test-framework-th idiom
     Also don't suggest anything mentioned elsewhere in the module
 
 <TEST>
@@ -21,6 +22,8 @@
 myTest = 1; my_test = 1
 semiring'laws = 1 -- semiringLaws = ...
 data Yes = FOO_A | Foo_B -- data Yes = FOO_A | FooB
+case_foo = 1
+cast_foo = 1 -- castFoo = ...
 </TEST>
 -}
 
@@ -75,7 +78,7 @@
 
 
 suggestName :: String -> Maybe String
-suggestName x = listToMaybe [f x | not $ isSym x || good || not (any isLower x) || "prop_" `isPrefixOf` x]
+suggestName x = listToMaybe [f x | not $ isSym x || good || not (any isLower x) || "prop_" `isPrefixOf` x || "case_" `isPrefixOf` x]
     where
         good = all isAlphaNum $ drp '_' $ drp '\'' $ reverse $ drp '_' x
         drp x = dropWhile (== x)