move TypeAtPos tests to own file

Author: zth

analysis/tests/src/RecordCompletion.res

@@ -22,24 +22,3 @@ let n = {R.name: ""}
 
 // n.R. xx
 //     ^com
-
-type optRecord = {
-  name: string,
-  age?: int,
-  online?: bool,
-}
-
-let optRecord = {
-  name: "Hello",
-  //             ^com
-}
-
-type someVariant = One(int, optRecord)
-
-let x = One(
-  1,
-  {
-    name: "What",
-    //            ^com
-  },
-)

analysis/tests/src/TypeAtPosCompletion.res

@@ -0,0 +1,20 @@
+type optRecord = {
+  name: string,
+  age?: int,
+  online?: bool,
+}
+
+let optRecord = {
+  name: "Hello",
+  //             ^com
+}
+
+type someVariant = One(int, optRecord)
+
+let x = One(
+  1,
+  {
+    name: "What",
+    //            ^com
+  },
+)

analysis/tests/src/expected/Completion.res.txt

@@ -1764,6 +1764,12 @@ Path T
     "tags": [],
     "detail": "file module",
     "documentation": null
+  }, {
+    "label": "TypeAtPosCompletion",
+    "kind": 9,
+    "tags": [],
+    "detail": "file module",
+    "documentation": null
   }, {
     "label": "TypeDefinition",
     "kind": 9,

analysis/tests/src/expected/CompletionJsxProps.res.txt

@@ -68,6 +68,12 @@ Path CompletionSupport.TestComponent.make
     "tags": [],
     "detail": "file module",
     "documentation": null
+  }, {
+    "label": "TypeAtPosCompletion",
+    "kind": 9,
+    "tags": [],
+    "detail": "file module",
+    "documentation": null
   }, {
     "label": "TypeDefinition",
     "kind": 9,

analysis/tests/src/expected/RecordCompletion.res.txt

@@ -50,8 +50,8 @@ Path Js.Array2.m
   }]
 
 Complete src/RecordCompletion.res 19:7
-posCursor:[19:7] posNoWhite:[19:6] Found expr:[19:3->25:4]
-Pexp_field [19:3->19:4] R.:[19:5->25:4]
+posCursor:[19:7] posNoWhite:[19:6] Found expr:[19:3->19:7]
+Pexp_field [19:3->19:4] R.:[19:5->19:7]
 Completable: Cpath Module[R].""
 Package opens Pervasives.JsxModules.place holder
 Resolved opens 1 pervasives
@@ -81,46 +81,3 @@ Path R.
     "documentation": null
   }]
 
-Complete src/RecordCompletion.res 32:17
-posCursor:[32:17] posNoWhite:[32:15] Found expr:[31:16->34:1]
-Completable: Cexpression CTypeAtPos()->recordBody
-Package opens Pervasives.JsxModules.place holder
-Resolved opens 1 pervasives
-ContextPath CTypeAtPos()
-[{
-    "label": "age",
-    "kind": 5,
-    "tags": [],
-    "detail": "age?: int\n\noptRecord",
-    "documentation": null
-  }, {
-    "label": "online",
-    "kind": 5,
-    "tags": [],
-    "detail": "online?: bool\n\noptRecord",
-    "documentation": null
-  }]
-
-Complete src/RecordCompletion.res 41:18
-posCursor:[41:18] posNoWhite:[41:16] Found expr:[38:8->44:1]
-Pexp_construct One:[38:8->38:11] [38:11->44:1]
-posCursor:[41:18] posNoWhite:[41:16] Found expr:[38:11->44:1]
-posCursor:[41:18] posNoWhite:[41:16] Found expr:[40:2->43:3]
-Completable: Cexpression CTypeAtPos()->variantPayload::One($1), recordBody
-Package opens Pervasives.JsxModules.place holder
-Resolved opens 1 pervasives
-ContextPath CTypeAtPos()
-[{
-    "label": "age",
-    "kind": 5,
-    "tags": [],
-    "detail": "age?: int\n\noptRecord",
-    "documentation": null
-  }, {
-    "label": "online",
-    "kind": 5,
-    "tags": [],
-    "detail": "online?: bool\n\noptRecord",
-    "documentation": null
-  }]
-

analysis/tests/src/expected/TypeAtPosCompletion.res.txt

@@ -0,0 +1,43 @@
+Complete src/TypeAtPosCompletion.res 7:17
+posCursor:[7:17] posNoWhite:[7:15] Found expr:[6:16->9:1]
+Completable: Cexpression CTypeAtPos()->recordBody
+Package opens Pervasives.JsxModules.place holder
+Resolved opens 1 pervasives
+ContextPath CTypeAtPos()
+[{
+    "label": "age",
+    "kind": 5,
+    "tags": [],
+    "detail": "age?: int\n\noptRecord",
+    "documentation": null
+  }, {
+    "label": "online",
+    "kind": 5,
+    "tags": [],
+    "detail": "online?: bool\n\noptRecord",
+    "documentation": null
+  }]
+
+Complete src/TypeAtPosCompletion.res 16:18
+posCursor:[16:18] posNoWhite:[16:16] Found expr:[13:8->19:1]
+Pexp_construct One:[13:8->13:11] [13:11->19:1]
+posCursor:[16:18] posNoWhite:[16:16] Found expr:[13:11->19:1]
+posCursor:[16:18] posNoWhite:[16:16] Found expr:[15:2->18:3]
+Completable: Cexpression CTypeAtPos()->variantPayload::One($1), recordBody
+Package opens Pervasives.JsxModules.place holder
+Resolved opens 1 pervasives
+ContextPath CTypeAtPos()
+[{
+    "label": "age",
+    "kind": 5,
+    "tags": [],
+    "detail": "age?: int\n\noptRecord",
+    "documentation": null
+  }, {
+    "label": "online",
+    "kind": 5,
+    "tags": [],
+    "detail": "online?: bool\n\noptRecord",
+    "documentation": null
+  }]
+