Fix func test

Author: wz1000

haskell-language-server.cabal

@@ -520,6 +520,7 @@ test-suite func-test
   import:             common-deps
                     , warnings
                     , pedantic
+                    , refactor
   type:               exitcode-stdio-1.0
   default-language:   Haskell2010
   build-tool-depends:

test/functional/Format.hs

@@ -47,10 +47,13 @@ providerTests = testGroup "formatting provider" [
     testCase "respects none" $ runSessionWithConfig (formatConfig "none") hlsCommand fullCaps "test/testdata/format" $ do
         doc <- openDoc "Format.hs" "haskell"
         resp <- request STextDocumentFormatting $ DocumentFormattingParams Nothing doc (FormattingOptions 2 True Nothing Nothing Nothing)
-        liftIO $ resp ^. LSP.result @?= Left (ResponseError InvalidRequest
-            ("No plugin enabled for STextDocumentFormatting, available:\n"
-            <> "PluginId \"floskell\"\nPluginId \"fourmolu\"\nPluginId \"stylish-haskell\"\nPluginId \"brittany\"\nPluginId \"ormolu\"\n")
-            Nothing)
+        case resp ^. LSP.result of
+          result@(Left (ResponseError reason message Nothing)) -> case reason of
+            MethodNotFound -> pure () -- No formatter
+            InvalidRequest | "No plugin enabled for STextDocumentFormatting" `isPrefixOf` message -> pure ()
+            _ -> assertFailure $ "strange response from formatting provider:" ++ show result
+          result -> assertFailure $ "strange response from formatting provider:" ++ show result
+
 
     , requiresOrmoluPlugin . requiresFloskellPlugin $ testCase "can change on the fly" $ runSession hlsCommand fullCaps "test/testdata/format" $ do
         formattedOrmolu <- liftIO $ T.readFile "test/testdata/format/Format.ormolu.formatted.hs"

test/functional/FunctionalCodeAction.hs

@@ -24,13 +24,15 @@ import           Test.Hls.Command
 
 tests :: TestTree
 tests = testGroup "code actions" [
+#if hls_refactor
       importTests
     , packageTests
     , redundantImportTests
     , renameTests
     , signatureTests
     , typedHoleTests
     , unusedTermTests
+#endif
     ]
 
 renameTests :: TestTree