Skip logging notifications in tests

Author: michaelpj

test/functional/FunctionalCodeAction.hs

@@ -43,7 +43,7 @@ renameTests = testGroup "rename suggestions" [
         cars <- getAllCodeActions doc
         replaceButStrLn <- liftIO $ inspectCommand cars ["Replace with", "putStrLn"]
         executeCommand replaceButStrLn
-        _ <- anyRequest
+        _ <- skipManyTill loggingNotification anyRequest
 
         x:_ <- T.lines <$> documentContents doc
         liftIO $ x @?= "main = putStrLn \"hello\""
@@ -65,7 +65,7 @@ renameTests = testGroup "rename suggestions" [
                 _ -> error $ "Unexpected arguments: " ++ show mbArgs
 
             executeCommand cmd
-            _ <- anyRequest
+            _ <- skipManyTill loggingNotification anyRequest
 
             x1:x2:_ <- T.lines <$> documentContents doc
             liftIO $
@@ -207,7 +207,7 @@ redundantImportTests = testGroup "redundant import code actions" [
         cas <- getAllCodeActions doc
         cmd <- liftIO $ inspectCommand cas ["redundant import"]
         executeCommand cmd
-        _ <- anyRequest
+        _ <- skipManyTill loggingNotification anyRequest
         contents <- documentContents doc
         liftIO $ T.lines contents @?=
                 [ "{-# OPTIONS_GHC -Wunused-imports #-}"