update the test module and promote tests

ocaml · Dec 19, 2021 · 35468e2 · 35468e2
1 parent 90141f5
commit 35468e2
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 15 deletions.
diff --git a/test/integration/markdown.t/run.t b/test/integration/markdown.t/run.t
@@ -21,7 +21,7 @@
 
   ######       type t
 
-  Doc for type t .
+  Doc for `type t`
 
   ######       type a = t
 
@@ -39,8 +39,6 @@
 
   ######           type foo
 
-  docs for x
-
   ######           type bar'
 
   ######           module type Foo' = sig
@@ -51,12 +49,14 @@
 
   ######                   | Mon
 
-  first day of the week.
+  Docs for `days`
 
   ######               type num = [
 
   ######                   | `One
 
+  Docs for `` `One``
+
   ######               ]
 
   ######           end
@@ -75,7 +75,7 @@
 
   ######           fname : string ;
 
-  first name
+  Docs for `fname`
 
   ######           lname : string ;
 
@@ -183,7 +183,7 @@
 
   ######       type t
 
-  Doc for type t .
+  Doc for `type t`
 
   <a id="type-a"></a>
 
@@ -215,8 +215,6 @@
 
   ######           type foo
 
-  docs for x
-
   <a id="type-bar'"></a>
 
   ######           type bar'
@@ -237,7 +235,7 @@
 
   ######                   | Mon
 
-  first day of the week.
+  Docs for `days`
 
   <a id="type-num"></a>
 
@@ -247,6 +245,8 @@
 
   ######                   | `One
 
+  Docs for `` `One``
+
   ######               ]
 
   ######           end
@@ -275,7 +275,7 @@
 
   ######           fname : string ;
 
-  first name
+  Docs for `fname`
 
   <a id="type-name.lname"></a>
 
@@ -365,4 +365,3 @@
   - Mon
 
   - Tue
-
diff --git a/test/integration/markdown.t/test.mli b/test/integration/markdown.t/test.mli
@@ -25,23 +25,22 @@ end
 
 module type Foo = sig
   type foo
-  (** docs for x *)
 
   include Bar'
 
   module type Foo' = sig
     type foo'
 
-    type days = Mon  (** first day of the week. *)
+    type days = Mon  (** Docs for [days]. *)
 
-    type num = [ `One ]
+    type num = [ `One (** Docs for [`One]*)]
   end
 end
 
 type other_names = { given : string; nickname : string }
 
 type name = {
-  fname : string;  (** first name *)
+  fname : string;  (** Docs for [fname] *)
   lname : string;
   others : other_names;
 }