From bbf04df900fd5de3efeefb4d1de82170193eccf0 Mon Sep 17 00:00:00 2001
From: Mathieu Boespflug <m@tweag.io>
Date: Sun, 14 Jun 2020 19:45:52 +0200
Subject: Docbook reader: implement <procedure> (#6442)

A `<procedure>` contains a sequence of `<step>`'s, or `<substeps>`
that themselves contain `<step>`'s.
---
 test/docbook-reader.docbook | 24 ++++++++++++++++++++++++
 test/docbook-reader.native  |  7 ++++++-
 2 files changed, 30 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/docbook-reader.docbook b/test/docbook-reader.docbook
index eaa0d5273..02568d8de 100644
--- a/test/docbook-reader.docbook
+++ b/test/docbook-reader.docbook
@@ -1563,5 +1563,29 @@ or here: &lt;http://example.com/&gt;
       </tbody>
     </tgroup>
   </informaltable>
+  <procedure><title>An Example Procedure</title>
+    <step>
+      <para>
+        A Step
+      </para>
+    </step>
+    <step>
+      <para>
+        Another Step
+      </para>
+      <substeps>
+        <step>
+          <para>
+            Substeps can be nested indefinitely deep.
+          </para>
+        </step>
+      </substeps>
+    </step>
+    <step>
+      <para>
+        A Final Step
+      </para>
+    </step>
+  </procedure>
 </sect1>
 </article>
diff --git a/test/docbook-reader.native b/test/docbook-reader.native
index 36245e875..1961949d9 100644
--- a/test/docbook-reader.native
+++ b/test/docbook-reader.native
@@ -575,4 +575,9 @@ Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "John",Sof
    ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
     [Plain [Str "Here's",Space,Str "another",Space,Str "one.",Space,Str "Note",Space,Str "the",Space,Str "blank",Space,Str "line",Space,Str "between",Space,Str "rows."]]]])]
  (TableFoot ("",[],[])
- [])]
+ [])
+,BulletList
+ [[Para [Str "A",Space,Str "Step"]]
+ ,[Para [Str "Another",Space,Str "Step"]
+  ,Para [Str "Substeps",Space,Str "can",Space,Str "be",Space,Str "nested",Space,Str "indefinitely",Space,Str "deep."]]
+ ,[Para [Str "A",Space,Str "Final",Space,Str "Step"]]]]
-- 
cgit v1.2.3