diff --git a/hls-pragmas-plugin.cabal b/hls-pragmas-plugin.cabal
--- a/hls-pragmas-plugin.cabal
+++ b/hls-pragmas-plugin.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.4
 name:               hls-pragmas-plugin
-version:            2.1.0.0
+version:            2.2.0.0
 synopsis:           Pragmas plugin for Haskell Language Server
 description:
   Please see the README on GitHub at <https://github.com/haskell/haskell-language-server#readme>
@@ -30,8 +30,8 @@
     , extra
     , fuzzy
     , ghc
-    , ghcide                == 2.1.0.0
-    , hls-plugin-api        == 2.1.0.0
+    , ghcide                == 2.2.0.0
+    , hls-plugin-api        == 2.2.0.0
     , lens
     , lsp
     , text
@@ -53,7 +53,7 @@
     , base
     , filepath
     , hls-pragmas-plugin
-    , hls-test-utils      == 2.1.0.0
+    , hls-test-utils      == 2.2.0.0
     , lens
     , lsp-types
     , text
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -178,7 +178,7 @@
 
 completionTest :: String -> FilePath -> T.Text -> T.Text -> Maybe InsertTextFormat -> Maybe T.Text -> Maybe T.Text -> [UInt] -> TestTree
 completionTest testComment fileName replacementText expectedLabel expectedFormat expectedInsertText detail [delFromLine, delFromCol, delToLine, delToCol, completeAtLine, completeAtCol] =
-  testCase testComment $ runSessionWithServer pragmasCompletionPlugin testDataDir $ do
+  testCase testComment $ runSessionWithServer def pragmasCompletionPlugin testDataDir $ do
     doc <- openDoc fileName "haskell"
     _ <- waitForDiagnostics
     let te = TextEdit (Range (Position delFromLine delFromCol) (Position delToLine delToCol)) replacementText
@@ -198,10 +198,10 @@
 
 provideNoUndesiredCompletionsTest :: String -> FilePath -> Maybe T.Text -> Maybe TextEdit -> Position -> TestTree
 provideNoUndesiredCompletionsTest testComment fileName mUndesiredLabel mTextEdit pos =
-  testCase testComment $ runSessionWithServer pragmasCompletionPlugin testDataDir $ do
+  testCase testComment $ runSessionWithServer def pragmasCompletionPlugin testDataDir $ do
+    setConfigSection "haskell" disableGhcideCompletions
     doc <- openDoc fileName "haskell"
     _ <- waitForDiagnostics
-    _ <- sendConfigurationChanged disableGhcideCompletions
     mapM_ (applyEdit doc) mTextEdit
     compls <- getCompletions doc pos
     liftIO $ case mUndesiredLabel of
@@ -214,10 +214,10 @@
                 Nothing -> pure ()
 
 disableGhcideCompletions :: Value
-disableGhcideCompletions = object [ "haskell" .= object ["plugin" .= object [ "ghcide-completions" .= object ["globalOn" .= False]]] ]
+disableGhcideCompletions = object [ "plugin" .= object [ "ghcide-completions" .= object ["globalOn" .= False]]]
 
 goldenWithPragmas :: PluginTestDescriptor () -> TestName -> FilePath -> (TextDocumentIdentifier -> Session ()) -> TestTree
-goldenWithPragmas descriptor title path = goldenWithHaskellDoc descriptor title testDataDir path "expected" "hs"
+goldenWithPragmas descriptor title path = goldenWithHaskellDoc def descriptor title testDataDir path "expected" "hs"
 
 testDataDir :: FilePath
 testDataDir = "test" </> "testdata"