Filter new test on win

Author: Aster89

plugins/hls-class-plugin/src/Ide/Plugin/Class/ExactPrint.hs

@@ -23,9 +23,7 @@ import           Control.Lens                            (_head, over)
 makeEditText :: Monad m => ParsedModule -> DynFlags -> AddMinimalMethodsParams -> MaybeT m (T.Text, T.Text)
 makeEditText pm df AddMinimalMethodsParams{..} = do
     mDecls <- MaybeT . pure $ traverse (makeMethodDecl df) methodGroup
-    let ps =
-            makeDeltaAst $
-                pm_parsed_source pm
+    let ps = makeDeltaAst $ pm_parsed_source pm
 
         old = T.pack $ exactPrint ps
 #if MIN_VERSION_ghc_exactprint(1,10,0)

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

@@ -44,8 +44,6 @@ codeActionTests = testGroup
       , "Add placeholders for all missing methods"
       , "Add placeholders for all missing methods with signature(s)"
       ]
-  , goldenWithClass "Creates a placeholder for '<>'" "T8" "diamond" $
-      getActionByTitle "Add placeholders for '<>'"
   , goldenWithClass "Creates a placeholder for '=='" "T1" "eq" $
       getActionByTitle "Add placeholders for '=='"
   , goldenWithClass "Creates a placeholder for '/='" "T1" "ne" $
@@ -68,6 +66,12 @@ codeActionTests = testGroup
       getActionByTitle "Add placeholders for 'g','h'"
   , goldenWithClass "Creates a placeholder when all top-level decls are indented" "T7" "" $
       getActionByTitle "Add placeholders for 'g','h','i'"
+  , testGroup "with preprocessors"
+    [ knownBrokenInEnv [GhcVer GHC910]
+        "See issue https://github.com/haskell/haskell-language-server/issues/4731 for details." $
+        goldenWithClass "Creates a placeholder for '<>'" "T8" "diamond" $
+      getActionByTitle "Add placeholders for '<>'"
+      ]
   , goldenWithClass "Don't insert pragma with GHC2021" "InsertWithGHC2021Enabled" "" $
       getActionByTitle "Add placeholders for '==' with signature(s)"
   , goldenWithClass "Insert pragma if not exist" "InsertWithoutPragma" "" $