Add tests for fixed cases

fsprojects · Aug 30, 2022 · ced0f05 · ced0f05
1 parent 018739c
commit ced0f05
Show file tree

Hide file tree

Showing 4 changed files with 22 additions and 0 deletions.
diff --git a/tests/FSharp.ApiDocs.Tests/ApiDocsTests.fs b/tests/FSharp.ApiDocs.Tests/ApiDocsTests.fs
@@ -253,6 +253,17 @@ let ``ApiDocs works on two sample F# assemblies`` (format: OutputFormat) =
     files.[(sprintf "fslib-union.%s" format.Extension)]
     |> shouldContainText "<span>Naming(<span>rate,&#32;string</span>)</span>"
 
+    // Check that operators are encoded
+    files[(sprintf "fslib-operatorswithfsi.%s" format.Extension)]
+    |> shouldContainText "&lt;&amp;&gt;"
+
+    // Check that parameters are indexed
+    files[(sprintf "fslib-operatorswithfsi.%s" format.Extension)]
+    |> shouldContainText "arg0"
+
+    files[(sprintf "fslib-operatorswithfsi.%s" format.Extension)]
+    |> shouldContainText "arg1"
+
     (* This may be addressed in a separate issue or removed if not an issue.
   // Check that implict cast operator is generated correctly
   files.[(sprintf "fslib-space-missing-implicit-cast.%s" format.Extension)] |> shouldContainText "<code><span>op_Implicit&#32;<span>source</span></span></code>"

diff --git a/tests/FSharp.ApiDocs.Tests/files/FsLib1/FsLib1.fsproj b/tests/FSharp.ApiDocs.Tests/files/FsLib1/FsLib1.fsproj
@@ -6,6 +6,8 @@
   </PropertyGroup>
   <ItemGroup>
     <Compile Include="Library1.fs" />
+    <Compile Include="OperatorsWithFsi.fsi" />
+    <Compile Include="OperatorsWithFsi.fs" />
     <None Include="paket.references" />
   </ItemGroup>
   <Import Project="..\..\..\..\.paket\Paket.Restore.targets" />

diff --git a/tests/FSharp.ApiDocs.Tests/files/FsLib1/OperatorsWithFsi.fs b/tests/FSharp.ApiDocs.Tests/files/FsLib1/OperatorsWithFsi.fs
@@ -0,0 +1,4 @@
+module FsLib.OperatorsWithFsi
+
+let (<&>) (x: 'T) (y: 'T) = x < y
+
diff --git a/tests/FSharp.ApiDocs.Tests/files/FsLib1/OperatorsWithFsi.fsi b/tests/FSharp.ApiDocs.Tests/files/FsLib1/OperatorsWithFsi.fsi
@@ -0,0 +1,5 @@
+module FsLib.OperatorsWithFsi
+
+/// <summary>The operator</summary>
+val ( <&> ) : 'T -> 'T -> bool when 'T : comparison
+
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,4 @@
		module FsLib.OperatorsWithFsi

		let (<&>) (x: 'T) (y: 'T) = x < y