Add reproducer

Author: jhrcek

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

@@ -26,6 +26,8 @@ tests :: TestTree
 tests = testGroup "Rename"
     [ goldenWithRename "Data constructor" "DataConstructor" $ \doc ->
         rename doc (Position 0 15) "Op"
+    , goldenWithRename "Data constructor with fields" "DataConstructorWithFields" $ \doc ->
+        rename doc (Position 0 13) "FooRenamed"
     , goldenWithRename "Exported function" "ExportedFunction" $ \doc ->
         rename doc (Position 2 1) "quux"
     , ignoreForGhcVersions [GHC92] recordConstructorIssue $

plugins/hls-rename-plugin/test/testdata/DataConstructorWithFields.expected.hs

@@ -0,0 +1 @@
+data Foo = FooRenamed { a :: Int, b :: Bool }

plugins/hls-rename-plugin/test/testdata/DataConstructorWithFields.hs

@@ -0,0 +1 @@
+data Foo = Foo { a :: Int, b :: Bool }