test case for haskell#2915 (currently fails)

Author: aavogt

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

@@ -24,6 +24,8 @@ tests :: TestTree
 tests = testGroup "Rename"
     [ goldenWithRename "Data constructor" "DataConstructor" $ \doc ->
         rename doc (Position 0 15) "Op"
+    , goldenWithRename "Data constructor declaration" "DataDec" $ \doc ->
+        rename doc (Position 2 9) "CXX"
     , goldenWithRename "Exported function" "ExportedFunction" $ \doc ->
         rename doc (Position 2 1) "quux"
     , goldenWithRename "Field Puns" "FieldPuns" $ \doc ->

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

@@ -0,0 +1,3 @@
+module M (module M) where
+
+data D = CXX { a, b :: Int }

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

@@ -0,0 +1,3 @@
+module M (module M) where
+
+data D = C { a, b :: Int }