diff --git a/eng/Versions.props b/eng/Versions.props
index 402c63052d6..99c05d2ed5f 100644
--- a/eng/Versions.props
+++ b/eng/Versions.props
@@ -102,7 +102,7 @@
2.0.28
- 4.14.0
+ 5.0.0-2.25480.7
$(MicrosoftVisualStudioShellPackagesVersion)
diff --git a/vsintegration/tests/Salsa/VisualFSharp.Salsa.fsproj b/vsintegration/tests/Salsa/VisualFSharp.Salsa.fsproj
index f7410214430..390088dfd47 100644
--- a/vsintegration/tests/Salsa/VisualFSharp.Salsa.fsproj
+++ b/vsintegration/tests/Salsa/VisualFSharp.Salsa.fsproj
@@ -39,6 +39,7 @@
+
diff --git a/vsintegration/tests/Salsa/VsMocks.fs b/vsintegration/tests/Salsa/VsMocks.fs
index 5189b7faec5..12108b08421 100644
--- a/vsintegration/tests/Salsa/VsMocks.fs
+++ b/vsintegration/tests/Salsa/VsMocks.fs
@@ -1640,6 +1640,7 @@ module internal VsActual =
open System.IO
open System.ComponentModel.Composition.Hosting
open System.ComponentModel.Composition.Primitives
+ open FSharp.Test.VSInstallDiscovery
open Microsoft.VisualStudio.Text
open Microsoft.VisualStudio.Threading
@@ -1651,15 +1652,18 @@ module internal VsActual =
member public _.JoinableTaskContext : JoinableTaskContext = jtc
let vsInstallDir =
- // use the environment variable to find the VS installdir
- let vsvar =
- let var = Environment.GetEnvironmentVariable("VS170COMNTOOLS")
- if String.IsNullOrEmpty var then
- Environment.GetEnvironmentVariable("VSAPPIDDIR")
- else
- var
- if String.IsNullOrEmpty vsvar then failwith "VS170COMNTOOLS and VSAPPIDDIR environment variables not found."
- Path.Combine(vsvar, "..")
+ match tryGetVSInstallDir () with
+ | Some dir -> dir
+ | None ->
+ // Fallback to legacy behavior for backward compatibility
+ let vsvar =
+ let var = Environment.GetEnvironmentVariable("VS170COMNTOOLS")
+ if String.IsNullOrEmpty var then
+ Environment.GetEnvironmentVariable("VSAPPIDDIR")
+ else
+ var
+ if String.IsNullOrEmpty vsvar then failwith "VS170COMNTOOLS and VSAPPIDDIR environment variables not found."
+ Path.Combine(vsvar, "..")
let CreateEditorCatalog() =
let thisAssembly = Assembly.GetExecutingAssembly().Location