Skip to content

test(lsp): make workspace snapshots platform-independent #2136

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
rgrinberg merged 1 commit into from
Aug 8, 2026
+8 −8
Merged

test(lsp): make workspace snapshots platform-independent #2136

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 8 additions & 8 deletions lsp/test/workspaces_tests.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,7 +17,7 @@ let initialize ?rootPath ?rootUri ?workspaceFolders () =
let print_folders workspace_folders =
Workspaces.workspace_folders workspace_folders
|> List.iter (fun (folder : WorkspaceFolder.t) ->
Printf.printf "%s %s\n" folder.name (Uri.to_path folder.uri))
Printf.printf "%s %s\n" folder.name (Uri.to_string folder.uri))
;;

let%expect_test "workspace folders are updated" =
Expand All @@ -30,8 +30,8 @@ let%expect_test "workspace folders are updated" =
print_folders workspaces;
[%expect
{|
first /workspace/first
second /workspace/second
first file:///workspace/first
second file:///workspace/second
|}];
let event = WorkspaceFoldersChangeEvent.create ~added:[ third ] ~removed:[ first ] in
let workspaces =
Expand All @@ -40,16 +40,16 @@ let%expect_test "workspace folders are updated" =
print_folders workspaces;
[%expect
{|
second /workspace/second
third /workspace/third
second file:///workspace/second
third file:///workspace/third
|}]
;;

let%expect_test "workspace folder fallbacks" =
let root_uri = Uri.of_path "/workspace/root-uri" in
let root_uri_workspaces = Workspaces.create (initialize ~rootUri:root_uri ()) in
print_folders root_uri_workspaces;
[%expect {| root-uri /workspace/root-uri |}];
[%expect {| root-uri file:///workspace/root-uri |}];
let root_path_workspaces =
Workspaces.create (initialize ~rootPath:(Some "/workspace/root-path") ())
in
Expand All @@ -65,7 +65,7 @@ let%expect_test "workspace folder fallbacks" =
print_folders explicit_workspaces;
[%expect
{|
root-path /workspace/root-path
explicit /workspace/explicit
root-path file:///workspace/root-path
explicit file:///workspace/explicit
|}]
;;
Loading