Add test case for functor with unit parameter

Signed-off-by: Jon Ludlam <jon@recoil.org>
ocaml · Jun 23, 2020 · 8768fe2 · 8768fe2
1 parent 8f5b3f7
commit 8768fe2
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 0 deletions.
diff --git a/test/cases/functor.mli b/test/cases/functor.mli
@@ -15,3 +15,6 @@ sig
 end
 
 module F4 (Arg : S) : S
+
+module F5 : functor () -> S
+
diff --git a/test/html/expect/test_package+ml/Functor/index.html b/test/html/expect/test_package+ml/Functor/index.html
@@ -40,6 +40,9 @@ <h1>
    <div class="spec module" id="module-F4">
     <a href="#module-F4" class="anchor"></a><code><span class="keyword">module</span> <a href="F4/index.html">F4</a> : <span class="keyword">functor</span> (<a href="F4/argument-1-Arg/index.html">Arg</a> : <a href="module-type-S/index.html">S</a>) <span>-&gt;</span> <a href="module-type-S/index.html">S</a></code>
    </div>
+   <div class="spec module" id="module-F5">
+    <a href="#module-F5" class="anchor"></a><code><span class="keyword">module</span> <a href="F5/index.html">F5</a> : <span class="keyword">functor</span> () <span>-&gt;</span> <a href="module-type-S/index.html">S</a></code>
+   </div>
   </div>
  </body>
 </html>
diff --git a/test/html/expect/test_package+re/Functor/index.html b/test/html/expect/test_package+re/Functor/index.html
@@ -40,6 +40,9 @@ <h1>
    <div class="spec module" id="module-F4">
     <a href="#module-F4" class="anchor"></a><code><span class="keyword">module</span> <a href="F4/index.html">F4</a>:  (<a href="F4/argument-1-Arg/index.html">Arg</a>: <a href="module-type-S/index.html">S</a>) <span>=&gt;</span> <a href="module-type-S/index.html">S</a>;</code>
    </div>
+   <div class="spec module" id="module-F5">
+    <a href="#module-F5" class="anchor"></a><code><span class="keyword">module</span> <a href="F5/index.html">F5</a>:  () <span>=&gt;</span> <a href="module-type-S/index.html">S</a>;</code>
+   </div>
   </div>
  </body>
 </html>
diff --git a/test/man/expect/test_package+ml/Functor.3o b/test/man/expect/test_package+ml/Functor.3o
@@ -32,3 +32,5 @@ test_package+ml\.Functor
 \f[CB]module\fR F3 : \f[CB]functor\fR (Arg : S) \-> \f[CB]sig\fR \.\.\. \f[CB]end\fR
 .sp 
 \f[CB]module\fR F4 : \f[CB]functor\fR (Arg : S) \-> S
+.sp 
+\f[CB]module\fR F5 : \f[CB]functor\fR () \-> S
Original file line number	Diff line number	Diff line change
Expand Up		@@ -15,3 +15,6 @@ sig
		end

		module F4 (Arg : S) : S

		module F5 : functor () -> S