Add an broken example

safesparrow · safesparrow · commit ed795dd273b1 · 2022-11-01T19:00:25.000Z
diff --git a/FSharp.Compiler.Service.sln b/FSharp.Compiler.Service.sln
@@ -42,6 +42,8 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution
 EndProject
 Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "FSharp.Compiler.Service.Tests2", "tests\FSharp.Compiler.Service.Tests2\FSharp.Compiler.Service.Tests2.fsproj", "{60EDC1C4-5B8B-4211-94CD-4CF5F9E0FC8B}"
 EndProject
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "DiamondTest", "tests\DiamondTest\DiamondTest.fsproj", "{62288B06-B682-4774-A8A5-A21D677A7C70}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -92,6 +94,10 @@ Global
 		{60EDC1C4-5B8B-4211-94CD-4CF5F9E0FC8B}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{60EDC1C4-5B8B-4211-94CD-4CF5F9E0FC8B}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{60EDC1C4-5B8B-4211-94CD-4CF5F9E0FC8B}.Release|Any CPU.Build.0 = Release|Any CPU
+		{62288B06-B682-4774-A8A5-A21D677A7C70}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{62288B06-B682-4774-A8A5-A21D677A7C70}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{62288B06-B682-4774-A8A5-A21D677A7C70}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{62288B06-B682-4774-A8A5-A21D677A7C70}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
diff --git a/tests/DiamondTest/Broken1/A.fs b/tests/DiamondTest/Broken1/A.fs
@@ -0,0 +1,4 @@
+﻿namespace N.M
+[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
+module internal A =
+    let x = 3
diff --git a/tests/DiamondTest/Broken1/B.fs b/tests/DiamondTest/Broken1/B.fs
@@ -0,0 +1,2 @@
+﻿namespace N.M.K
+module Y = let y = 4
diff --git a/tests/DiamondTest/Broken1/B.fsi b/tests/DiamondTest/Broken1/B.fsi
@@ -0,0 +1,2 @@
+﻿namespace N.M.K
+module Y = val y : int
diff --git a/tests/DiamondTest/Broken1/C.fs b/tests/DiamondTest/Broken1/C.fs
@@ -0,0 +1,2 @@
+﻿namespace N.M.K
+module Y2 = let y = 4
diff --git a/tests/DiamondTest/Broken1/D.fs b/tests/DiamondTest/Broken1/D.fs
@@ -0,0 +1,2 @@
+﻿namespace N.M.K
+module Y3 = let y = 5
diff --git a/tests/DiamondTest/Broken1/E.fs b/tests/DiamondTest/Broken1/E.fs
@@ -0,0 +1,4 @@
+﻿namespace N.M.K
+module Y4 =
+    let y = 6
+    
diff --git a/tests/DiamondTest/DiamondTest.fsproj b/tests/DiamondTest/DiamondTest.fsproj
@@ -21,6 +21,12 @@
         <Compile Include="D.fsi" />
         <Compile Include="D.fs" />
         <Compile Include="Program.fs" />
+        <Compile Include="Broken1\A.fs" />
+        <Compile Include="Broken1\B.fsi" />
+        <Compile Include="Broken1\B.fs" />
+        <Compile Include="Broken1\C.fs" />
+        <Compile Include="Broken1\D.fs" />
+        <Compile Include="Broken1\E.fs" />
     </ItemGroup>
 
 </Project>
diff --git a/tests/FSharp.Compiler.Service.Tests2/DiamondArgs_broken.txt b/tests/FSharp.Compiler.Service.Tests2/DiamondArgs_broken.txt

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+namespace N.M.K`
	`2`	`+module Y = let y = 4`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+namespace N.M.K`
	`2`	`+module Y = val y : int`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+namespace N.M.K`
	`2`	`+module Y2 = let y = 4`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+namespace N.M.K`
	`2`	`+module Y3 = let y = 5`