test: add two nice tests

Author: Santiago Weight

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

@@ -2376,6 +2376,8 @@ addFunctionArgumentTests =
         liftIO $ contentAfterAction @?= T.unlines foo',
         mkGoldenAddArgTest "AddArgWithSig" (R 1 0 1 50),
         mkGoldenAddArgTest "AddArgWithSigAndDocs" (R 8 0 8 50),
+        mkGoldenAddArgTest "AddArgFromLet" (R 2 0 2 50),
+        mkGoldenAddArgTest "AddArgFromWhere" (R 3 0 3 50),
         mkGoldenAddArgTest "AddArgWithTypeSynSig" (R 2 0 2 50),
         mkGoldenAddArgTest "AddArgWithTypeSynSigContravariant" (R 2 0 2 50),
         mkGoldenAddArgTest "AddArgWithLambda" (R 1 0 1 50),

plugins/hls-refactor-plugin/test/data/golden/add-arg/AddArgFromLet.expected.hs

@@ -0,0 +1,6 @@
+foo :: Bool -> _ -> Int
+foo True new_def =
+  let bar = new_def
+  in bar
+
+foo False new_def = 1

plugins/hls-refactor-plugin/test/data/golden/add-arg/AddArgFromLet.hs

@@ -0,0 +1,6 @@
+foo :: Bool -> Int
+foo True =
+  let bar = new_def
+  in bar
+
+foo False = 1

plugins/hls-refactor-plugin/test/data/golden/add-arg/AddArgFromWhere.expected.hs

@@ -0,0 +1,6 @@
+foo :: Bool -> _ -> Int
+foo True new_def = bar
+  where
+    bar = new_def
+
+foo False new_def = 1

plugins/hls-refactor-plugin/test/data/golden/add-arg/AddArgFromWhere.hs

@@ -0,0 +1,6 @@
+foo :: Bool -> Int
+foo True = bar
+  where
+    bar = new_def
+
+foo False = 1