Make the test a bit more comprehensive

Author: jhrcek

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

@@ -24,7 +24,7 @@ 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"
+        rename doc (Position 1 13) "FooRenamed"
     , goldenWithRename "Exported function" "ExportedFunction" $ \doc ->
         rename doc (Position 2 1) "quux"
     , ignoreForGhcVersions [GHC90, GHC92] recordConstructorIssue $

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

@@ -1 +1,14 @@
+{-# LANGUAGE NamedFieldPuns #-}
 data Foo = FooRenamed { a :: Int, b :: Bool }
+
+foo1 :: Foo
+foo1 = FooRenamed { a = 1, b = True }
+
+foo2 :: Foo
+foo2 = FooRenamed 1 True
+
+fun1 :: Foo -> Int
+fun1 FooRenamed {a} = a
+
+fun2 :: Foo -> Int
+fun2 FooRenamed {a = i} = i

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

@@ -1 +1,14 @@
+{-# LANGUAGE NamedFieldPuns #-}
 data Foo = Foo { a :: Int, b :: Bool }
+
+foo1 :: Foo
+foo1 = Foo { a = 1, b = True }
+
+foo2 :: Foo
+foo2 = Foo 1 True
+
+fun1 :: Foo -> Int
+fun1 Foo {a} = a
+
+fun2 :: Foo -> Int
+fun2 Foo {a = i} = i