Fix last test

Author: wz1000

plugins/hls-refactor-plugin/hls-refactor-plugin.cabal

@@ -110,6 +110,8 @@ test-suite tests
     , hls-test-utils      == 2.6.0.0
     , lens
     , lsp-types
+    -- for MIN_VERSION_ghc
+    , ghc
     , text
     , hls-plugin-api
     , parser-combinators

plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction.hs

@@ -1453,7 +1453,11 @@ suggestNewImport df packageExportsMap ps fileContents Diagnostic{..}
             *> extractQualifiedModuleNameFromMissingName (extractTextInRange _range fileContents)
   , Just (range, indent) <- newImportInsertRange ps fileContents
   , extendImportSuggestions <- matchRegexUnifySpaces msg
+#if MIN_VERSION_ghc(9,7,0)
+    "Add ‘[^’]*’ to the import list in the import of ‘([^’]*)’"
+#else
     "Perhaps you want to add ‘[^’]*’ to the import list in the import of ‘([^’]*)’"
+#endif
   = let qis = qualifiedImportStyle df
         -- FIXME: we can use thingMissing once the support for GHC 9.4 is dropped.
         -- In what fllows, @missing@ is assumed to be qualified name.

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

@@ -1673,6 +1673,7 @@ suggestImportTests :: TestTree
 suggestImportTests = testGroup "suggest import actions"
   [ testGroup "Dont want suggestion"
     [ -- extend import
+      -- We don't want to suggest a new import, but extend existing imports
       test False ["Data.List.NonEmpty ()"] "f = nonEmpty" []                "import Data.List.NonEmpty (nonEmpty)"
       -- data constructor
     , test False []                        "f = First"    []                "import Data.Monoid (First)"