From d9c6939a9834c70d546b8f762493f9b43fff5286 Mon Sep 17 00:00:00 2001
From: Guillaume Petiot <guillpetiot@gmail.com>
Date: Thu, 15 Aug 2019 13:14:25 +0700
Subject: [PATCH] fix and test

---
 src/Fmt_odoc.ml                   |   2 +-
 test/passing/doc_comments.mli.ref | 160 +++---------------------------
 test/passing/js_sig.mli           |   5 +
 test/passing/js_sig.mli.ref       |   6 ++
 4 files changed, 25 insertions(+), 148 deletions(-)

diff --git a/src/Fmt_odoc.ml b/src/Fmt_odoc.ml
index 1000985183..19d08ed407 100644
--- a/src/Fmt_odoc.ml
+++ b/src/Fmt_odoc.ml
@@ -193,7 +193,7 @@ and fmt_list_light c kind items =
     match kind with `Unordered -> fmt "- " | `Ordered -> fmt "+ "
   in
   let fmt_item elems =
-    line_start $ vbox 0 (fmt_nestable_block_elements c elems)
+    line_start $ hovbox 0 (fmt_nestable_block_elements c elems)
   in
   vbox 0 (list items "@," fmt_item)
 
diff --git a/test/passing/doc_comments.mli.ref b/test/passing/doc_comments.mli.ref
index fafcef1c9e..5a87c98adf 100644
--- a/test/passing/doc_comments.mli.ref
+++ b/test/passing/doc_comments.mli.ref
@@ -145,153 +145,21 @@ val x : x
 
     list with long lines:
 
-    - xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-    - yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-    - zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
+    - xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
+      xxx xxx xxx xxx xxx xxx xxx
+    - yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy
+      yyy yyy yyy yyy yyy yyy yyy
+    - zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz
+      zzz zzz zzz zzz zzz zzz zzz
 
     enumerated list with long lines:
 
-    + xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-      xxx
-    + yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-      yyy
-    + zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
-      zzz
+    + xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
+      xxx xxx xxx xxx xxx xxx xxx
+    + yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy yyy
+      yyy yyy yyy yyy yyy yyy yyy
+    + zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz zzz
+      zzz zzz zzz zzz zzz zzz zzz
 
     list with sub lists:
 
@@ -369,9 +237,7 @@ end
 
 (** {[ b ]} *)
 
-(** - Odoc
-      don't
-      parse
+(** - Odoc don't parse
 
     multiple paragraph in a list *)
 
diff --git a/test/passing/js_sig.mli b/test/passing/js_sig.mli
index acd163a0bf..60abc80d4b 100644
--- a/test/passing/js_sig.mli
+++ b/test/passing/js_sig.mli
@@ -5,3 +5,8 @@ exception First_exception
 
 (** Second documentation comment. *)
 exception Second_exception
+
+[@@@ocamlformat "parse-docstrings=true"]
+[@@@ocamlformat "wrap-comments=true"]
+
+(** {e foooooooo oooooo oooo oooo ooooo oooo ooooo} {i fooooo ooooo ooo oooooo oo oooooo oooo} {b fooooooo oooooo oooooo oooooo oooooo ooooooo} *)
diff --git a/test/passing/js_sig.mli.ref b/test/passing/js_sig.mli.ref
index acd163a0bf..6c42c7c710 100644
--- a/test/passing/js_sig.mli.ref
+++ b/test/passing/js_sig.mli.ref
@@ -5,3 +5,9 @@ exception First_exception
 
 (** Second documentation comment. *)
 exception Second_exception
+
+[@@@ocamlformat "parse-docstrings=true"]
+[@@@ocamlformat "wrap-comments=true"]
+
+(** {e foooooooo oooooo oooo oooo ooooo oooo ooooo} {i fooooo ooooo ooo oooooo oo oooooo
+    oooo} {b fooooooo oooooo oooooo oooooo oooooo ooooooo} *)