Add test

dotnet · May 23, 2023 · e05e808 · e05e808
1 parent 69df3a7
commit e05e808
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/tests/FSharp.Compiler.ComponentTests/FSharp.Compiler.ComponentTests.fsproj b/tests/FSharp.Compiler.ComponentTests/FSharp.Compiler.ComponentTests.fsproj
@@ -233,6 +233,7 @@
     <Compile Include="OCamlCompat\OCamlCompat.fs" />
     <Compile Include="Miscellaneous\ListLiterals.fs" />
     <Compile Include="Miscellaneous\SemanticClassificationKeyBuilder.fs" />
+    <Compile Include="Miscellaneous\FindUnsolvedTests.fs" />
     <Compile Include="Miscellaneous\XmlDoc.fs" />
     <Compile Include="Miscellaneous\FsharpSuiteMigrated.fs" />
     <Compile Include="Miscellaneous\MigratedCoreTests.fs" />

diff --git a/tests/FSharp.Compiler.ComponentTests/Miscellaneous/FindUnsolvedTests.fs b/tests/FSharp.Compiler.ComponentTests/Miscellaneous/FindUnsolvedTests.fs
@@ -0,0 +1,13 @@
+// Copyright (c) Microsoft Corporation.  All Rights Reserved.  See License.txt in the project root for license information.
+
+module FSharp.Compiler.ComponentTests.Miscellaneous.FindUnsolvedTests
+
+open Xunit
+open FSharp.Test.Compiler
+
+[<Fact>]
+let ``fallbackRange being set in FindUnsolved`` () =    
+    FSharp
+        """let f<'b> () : 'b = (let a = failwith "" in unbox a)"""
+    |> typecheckResults
+    |> ignore