fix reference field test

Author: soulomoon

ghcide-test/data/references/Fields.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE RecordWildCards #-}
+module Fields where
+
+data Foo = MkFoo
+  {
+    barr :: String,
+    bazz :: String
+  }
+
+fooUse0 :: Foo -> String
+fooUse0 MkFoo{barr} = "5"
+
+fooUse1 :: Foo -> String
+fooUse1 MkFoo{..} = "6"
+
+fooUse2 :: String -> String -> Foo
+fooUse2 bar baz =
+  MkFoo{..}

ghcide-test/data/references/Main.hs

@@ -1,7 +1,7 @@
 module Main where
 
 import References
-
+import Fields
 main :: IO ()
 main = return ()
 
@@ -12,3 +12,6 @@ b = a + 1
 
 acc :: Account
 acc = Savings
+
+fooUse3 :: String -> String -> Foo
+fooUse3 bar baz = MkFoo{barr = bar, bazz = baz}

ghcide-test/data/references/References.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE RecordWildCards #-}
 module References where
+
 import OtherModule
 
 foo = bar
@@ -23,19 +23,3 @@ bobHasChecking = case bobsAccount of
 x = symbolDefinedInOtherModule
 
 y = symbolDefinedInOtherOtherModule
-
-data Foo = MkFoo
-  {
-    barr :: Int,
-    bazz :: String
-  }
-
-fooUse0 :: Foo -> Int
-fooUse0 MkFoo{barr} = 5
-
-fooUse1 :: Foo -> Int
-fooUse1 MkFoo{..} = 6
-
-fooUse2 :: Int -> String -> Foo
-fooUse2 bar baz =
-  MkFoo{..}

ghcide-test/data/references/hie.yaml

@@ -1 +1 @@
-cradle: {direct: {arguments: ["Main","OtherModule","OtherOtherModule","References"]}}
+cradle: {direct: {arguments: ["Main","OtherModule","OtherOtherModule","References", "Fields"]}}

ghcide-test/exe/ReferenceTests.hs

@@ -155,11 +155,23 @@ tests = testGroup "references"
                           , ("References.hs", 12, 5)
                           , ("References.hs", 16, 0)
                           ]
-          , referenceTest "references record fields"
-                          ("References.hs", 29, 5)
+          ]
+        , testGroup "references to record fields"
+          [ referenceTest "references record fields in the same file"
+                          ("Fields.hs", 5, 4)
+                          YesIncludeDeclaration
+                          [ ("Fields.hs", 5, 4)
+                          , ("Fields.hs", 10, 14)
+                          , ("Fields.hs", 13, 14)
+                          ]
+
+          , referenceTest "references record fields cross modules"
+                          ("Main.hs", 16, 24)
                           YesIncludeDeclaration
-                          [ ("References.hs", 29, 4)
-                          , ("References.hs", 36, 14)
+                          [ ("Fields.hs", 5, 4)
+                          , ("Fields.hs", 10, 14)
+                          , ("Fields.hs", 13, 14)
+                          , ("Main.hs", 16, 24)
                           ]
           ]
     ]