From 1b19e79650d6bcc6ec45733ee349c3af5c36ab36 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 20 Oct 2018 10:00:50 -0700
Subject: Man reader: parse TP as definition lists.

Closes #4981.
---
 test/man-reader.man    | 11 +++++++++++
 test/man-reader.native |  9 ++++++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/man-reader.man b/test/man-reader.man
index e514bc8ca..7a34d5dcb 100644
--- a/test/man-reader.man
+++ b/test/man-reader.man
@@ -144,7 +144,18 @@ Lower alpha with paren
 .RE
 .RE
 .RE
+.SS Ordered
+Definition lists
+.TP
+.B term1
+definition 1
+.RS
 .PP
+continued
+.RE
+.TP
+.B term2
+definition 2
    *   *   *   *   *
 .SH Special Characters
 AT&T has an ampersand in their name.
diff --git a/test/man-reader.native b/test/man-reader.native
index 811c7c5c8..996ab7cac 100644
--- a/test/man-reader.native
+++ b/test/man-reader.native
@@ -70,7 +70,14 @@ Pandoc (Meta {unMeta = fromList [("date",MetaString "Oct 17, 2018"),("section",M
      [[Para [Str "Decimal",Space,Str "start",Space,Str "with",Space,Str "6"]
       ,OrderedList (3,LowerAlpha,OneParen)
        [[Para [Str "Lower",Space,Str "alpha",Space,Str "with",Space,Str "paren"]]]]]]]]]
-,Para [Str "*",Space,Str "*",Space,Str "*",Space,Str "*",Space,Str "*"]
+,Header 2 ("",[],[]) [Str "Ordered"]
+,Para [Str "Definition",Space,Str "lists"]
+,DefinitionList
+ [([Strong [Str "term1"]],
+   [[Para [Str "definition",Space,Str "1"]
+    ,Para [Str "continued"]]])
+ ,([Strong [Str "term2"]],
+   [[Para [Str "definition",Space,Str "2",Space,Str "*",Space,Str "*",Space,Str "*",Space,Str "*",Space,Str "*"]]])]
 ,Header 1 ("",[],[]) [Str "Special",Space,Str "Characters"]
 ,Para [Str "AT&T",Space,Str "has",Space,Str "an",Space,Str "ampersand",Space,Str "in",Space,Str "their",Space,Str "name."]
 ,Para [Str "4",Space,Str "<",Space,Str "5."]
-- 
cgit v1.2.3