Add completions for autogen-modules and autogen-includes in cabal file stanzas (#4526)

Author: Sid1005

plugins/hls-cabal-plugin/test/Completer.hs

@@ -40,9 +40,51 @@ completerTests =
       completionHelperTests,
       filePathExposedModulesTests,
       exposedModuleCompleterTests,
-      importCompleterTests
+      importCompleterTests,
+      autogenModulesCompletionTests
     ]
 
+autogenModulesCompletionTests :: TestTree
+autogenModulesCompletionTests =
+  testGroup
+    "Autogen modules completion"
+    [ runCabalTestCaseSession "Completes autogen-modules in library stanza" "" $ do
+        doc <- openDoc "cabal-files/autogen-completion.cabal" "cabal"
+        completions <- getCompletions doc (Position 5 4)
+        liftIO $ do
+          print (map (^. L.label) completions)
+          assertBool "autogen-modules: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-modules:" (c ^. L.label)) completions
+          assertBool "autogen-includes: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-includes:" (c ^. L.label)) completions
+    
+    , runCabalTestCaseSession "Completes autogen-modules in executable stanza" "" $ do
+        doc <- openDoc "cabal-files/autogen-completion-exe.cabal" "cabal"
+        completions <- getCompletions doc (Position 5 4)
+        liftIO $ do
+          assertBool "autogen-modules: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-modules:" (c ^. L.label)) completions
+    
+    , runCabalTestCaseSession "Completes autogen fields in test-suite stanza" "" $ do
+        doc <- openDoc "cabal-files/autogen-completion-test.cabal" "cabal"
+        completions <- getCompletions doc (Position 6 4)
+        liftIO $ do
+          assertBool "autogen-modules: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-modules:" (c ^. L.label)) completions
+          assertBool "autogen-includes: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-includes:" (c ^. L.label)) completions
+    
+    , runCabalTestCaseSession "Completes autogen fields in benchmark stanza" "" $ do
+        doc <- openDoc "cabal-files/autogen-completion-bench.cabal" "cabal"
+        completions <- getCompletions doc (Position 6 4)
+        liftIO $ do
+          assertBool "autogen-modules: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-modules:" (c ^. L.label)) completions
+          assertBool "autogen-includes: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-includes:" (c ^. L.label)) completions
+    ]
+
+
 basicCompleterTests :: TestTree
 basicCompleterTests =
   testGroup

plugins/hls-cabal-plugin/test/testdata/cabal-files/autogen-completion-bench.cabal

@@ -0,0 +1,8 @@
+cabal-version: 3.2
+name: test-project
+
+benchmark bench
+  type: exitcode-stdio-1.0
+  main-is: BenchMain.hs
+  autogen
+

plugins/hls-cabal-plugin/test/testdata/cabal-files/autogen-completion-exe.cabal

@@ -0,0 +1,7 @@
+cabal-version: 3.2
+name: test-project
+
+executable main
+  main-is: Main.hs
+  autogen
+

plugins/hls-cabal-plugin/test/testdata/cabal-files/autogen-completion-test.cabal

@@ -0,0 +1,8 @@
+cabal-version: 3.2
+name: test-project
+
+test-suite test
+  type: exitcode-stdio-1.0
+  main-is: TestMain.hs
+  autogen
+

plugins/hls-cabal-plugin/test/testdata/cabal-files/autogen-completion.cabal

@@ -0,0 +1,6 @@
+cabal-version: 3.2
+name: test-project
+
+library
+  exposed-modules: SomeModule
+  autogen