Add completion tests for records. (haskell#804)

pepeiborra · Oct 5, 2020 · a99ce1f · a99ce1f
1 parent 91a2590
commit a99ce1f
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/test/exe/Main.hs b/test/exe/Main.hs
@@ -2547,7 +2547,18 @@ localCompletionTests = [
         "class"
         ["bar :: Xx", "xxx = ()", "-- | haddock", "class Xxx a"]
         (Position 0 9)
-        [("Xxx", CiClass, False, True)]
+        [("Xxx", CiClass, False, True)],
+    completionTest
+        "records"
+        ["data Person = Person { _personName:: String, _personAge:: Int}", "bar = Person { _pers }" ]
+        (Position 1 19)
+        [("_personName", CiFunction, False, True),
+         ("_personAge", CiFunction, False, True)],
+    completionTest
+        "recordsConstructor"
+        ["data XxRecord = XyRecord { x:: String, y:: Int}", "bar = Xy" ]
+        (Position 1 19)
+        [("XyRecord", CiConstructor, False, True)]
     ]
 
 nonLocalCompletionTests :: [TestTree]