Ensure that the testfiles produce at least one diagnostic.

Author: peterwicksstringfield

test/functional/FunctionalCodeAction.hs

@@ -276,7 +276,7 @@ redundantImportTests = testGroup "redundant import code actions" [
             -- provides workspace edit property which skips round trip to
             -- the server
             contents <- documentContents doc
-            liftIO $ contents @?= "module CodeActionRedundant where\nmain :: IO ()\nmain = putStrLn \"hello\""
+            liftIO $ contents @?= "{-# OPTIONS_GHC -Wunused-imports #-}\nmodule CodeActionRedundant where\nmain :: IO ()\nmain = putStrLn \"hello\"\n"
 
     , testCase "doesn't touch other imports" $ runSession hlsCommand noLiteralCaps "test/testdata/redundantImportTest/" $ do
         doc <- openDoc "src/MultipleImports.hs" "haskell"
@@ -285,7 +285,8 @@ redundantImportTests = testGroup "redundant import code actions" [
         executeCommand cmd
         contents <- documentContents doc
         liftIO $ (T.lines contents) @?=
-                [ "module MultipleImports where"
+                [ "{-# OPTIONS_GHC -Wunused-imports #-}"
+                , "module MultipleImports where"
                 , "import Data.Maybe"
                 , "foo :: Int"
                 , "foo = fromJust (Just 3)"

test/testdata/Highlight.hs

@@ -2,4 +2,4 @@ module Highlight where
 foo :: Int
 foo = 3
 bar = foo
-  where baz = let x = foo in x
+  where baz = let x = foo in id x

test/testdata/redundantImportTest/src/CodeActionRedundant.hs

@@ -1,4 +1,5 @@
+{-# OPTIONS_GHC -Wunused-imports #-}
 module CodeActionRedundant where
 import Data.List
 main :: IO ()
-main = putStrLn "hello"
+main = putStrLn "hello"

test/testdata/redundantImportTest/src/MultipleImports.hs

@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -Wunused-imports #-}
 module MultipleImports where
 import Data.Foldable
 import Data.Maybe