Add a failing test for #2032

plugins/hls-pragmas-plugin/test/Main.hs

@@ -123,6 +123,13 @@ codeActionTests =
       cas <- map fromAction <$> getAllCodeActions doc
       liftIO $ "Disable \"unused-imports\" warnings" `elem` map (^. L.title) cas @? "Contains unused-imports code action"
       executeCodeAction $ head cas
+
+  , goldenWithPragmas "doesn't suggest disabling type errors" "DeferredTypeErrors" $ \doc -> do
+
+      _ <- waitForDiagnosticsFrom doc
+      cas <- map fromAction <$> getAllCodeActions doc
+      liftIO $ "Disable \"deferred-type-errors\" warnings" `notElem` map (^. L.title) cas @? "Doesn't contain deferred-type-errors code action"
+      liftIO $ length cas == 0 @? "Expected no code actions, but got: " <> show cas
   ]
 
 completionTests :: TestTree

plugins/hls-pragmas-plugin/test/testdata/DeferredTypeErrors.expected.hs

@@ -0,0 +1,4 @@
+module DeferredTypeErrors where
+
+foo :: Int
+foo = ()

plugins/hls-pragmas-plugin/test/testdata/DeferredTypeErrors.hs

@@ -0,0 +1,4 @@
+module DeferredTypeErrors where
+
+foo :: Int
+foo = ()