helper function for positions

ocaml · Feb 27, 2024 · 33d99b7 · 33d99b7
1 parent b7490ec
commit 33d99b7
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/ocaml-lsp-server/test/e2e-new/syntax_doc_tests.ml b/ocaml-lsp-server/test/e2e-new/syntax_doc_tests.ml
@@ -68,7 +68,7 @@ let%expect_test "syntax doc should display" =
   let source = {ocaml|
 type color = Red|Blue
 |ocaml} in
-  let position = Position.create ~line:1 ~character:9 in
+  let position = create_postion 1 9 in
   let req client =
     let* () = change_config client activate_syntax_doc in
     let* resp = hover_req client position in
@@ -94,7 +94,7 @@ let%expect_test "syntax doc should not display" =
   let source = {ocaml|
 type color = Red|Blue
 |ocaml} in
-  let position = Position.create ~line:1 ~character:9 in
+  let position = create_postion 1 9 in
   let req client =
     let* () = change_config client deactivate_syntax_doc in
     let* resp = hover_req client position in
@@ -116,7 +116,7 @@ let%expect_test "syntax doc should print" =
   let source = {ocaml|
 type t = ..
 |ocaml} in
-  let position = Position.create ~line:1 ~character:9 in
+  let position = create_postion 1 9 in
   let req client =
     let* () = change_config client activate_syntax_doc in
     let* resp = hover_req client position in
@@ -141,7 +141,7 @@ let%expect_test "should receive no hover response" =
   let source = {ocaml|
   let a = 1
   |ocaml} in
-  let position = Position.create ~line:1 ~character:5 in
+  let position = create_postion 1 5 in
   let req client =
     let* () = change_config client activate_syntax_doc in
     let* resp = hover_req client position in