Add repro for ocaml#4799

Private libraries attached to a package shouldn't be listed in the odoc library index. Signed-off-by: Rudi Grinberg <[email protected]>
rgrinberg · Sep 27, 2021 · 445d135 · 445d135
1 parent 97d4efe
commit 445d135
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/test/blackbox-tests/test-cases/odoc/gh4799.t b/test/blackbox-tests/test-cases/odoc/gh4799.t
@@ -0,0 +1,20 @@
+Private libraries attached to packages shouldn't be displayed in the index
+
+  $ cat <<EOF > dune-project
+  > (lang dune 3.0)
+  > (package (name foo))
+  > EOF
+
+  $ cat <<EOF > dune
+  > (library
+  >  (name foo)
+  >  (package foo))
+  > EOF
+  > touch foo.ml bar.ml
+
+  $ dune build @doc
+  $ cat _build/default/_doc/_mlds/foo/index.mld
+  {0 foo index}
+  {1 Library foo}
+  The entry point of this library is the module:
+  {!module-Foo}.