2 files changed, 50 insertions, 0 deletions

diff --git a/tests/docbook-reader.docbook b/tests/docbook-reader.docbook
index aef632fb1..9ba965d9b 100644
--- a/tests/docbook-reader.docbook
+++ b/tests/docbook-reader.docbook
@@ -731,6 +731,54 @@ These should not be escaped:  \$ \\ \> \[ \{
     Ellipses…and…and….
   </para>
 </sect1>
+<sect1 id="math">
+  <para>
+    <equation>
+      <mml:math>
+        <mml:mrow>
+          <mml:mi>e</mml:mi>
+          <mml:mo>=</mml:mo>
+          <mml:mi>m</mml:mi>
+          <mml:msup>
+            <mml:mi>c</mml:mi>
+            <mml:mn>2</mml:mn>
+          </mml:msup>
+        </mml:mrow>
+      </mml:math>
+      <mml:math>
+        <mrow>
+          <mn>1</mn>
+        </mrow>
+      </mml:math>
+    </equation>
+    <inlineequation>
+      <mml:math>
+        <mml:mrow>
+          <mml:mi>e</mml:mi>
+          <mml:mo>=</mml:mo>
+          <mml:mi>m</mml:mi>
+          <mml:msup>
+            <mml:mi>c</mml:mi>
+            <mml:mn>2</mml:mn>
+          </mml:msup>
+        </mml:mrow>
+      </mml:math>
+    </inlineequation>
+    <informalequation>
+      <mml:math>
+        <mml:mrow>
+          <mml:mi>e</mml:mi>
+          <mml:mo>=</mml:mo>
+          <mml:mi>m</mml:mi>
+          <mml:msup>
+            <mml:mi>c</mml:mi>
+            <mml:mn>2</mml:mn>
+          </mml:msup>
+        </mml:mrow>
+      </mml:math>
+    </informalequation>
+  </para>
+</sect1>
 <sect1 id="special-characters">
   <title>Special Characters</title>
   <para>
diff --git a/tests/docbook-reader.native b/tests/docbook-reader.native
index 583b016bb..90d76b3c2 100644
--- a/tests/docbook-reader.native
+++ b/tests/docbook-reader.native
@@ -190,6 +190,8 @@ Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "John",Spa
 ,Para [Str "Some",Space,Str "dashes:",Space,Str "one\8212two",Space,Str "\8212",Space,Str "three\8212four",Space,Str "\8212",Space,Str "five."]
 ,Para [Str "Dashes",Space,Str "between",Space,Str "numbers:",Space,Str "5\8211\&7,",Space,Str "255\8211\&66,",Space,Str "1987\8211\&1999."]
 ,Para [Str "Ellipses\8230and\8230and\8230."]
+,Header 1 ("",[],[]) []
+,Para [Math DisplayMath "e = mc^{2}",Math DisplayMath "1",Space,Math InlineMath "e = mc^{2}",Space,Math DisplayMath "e = mc^{2}"]
 ,Header 1 ("",[],[]) [Str "Special",Space,Str "Characters"]
 ,Para [Str "Here",Space,Str "is",Space,Str "some",Space,Str "unicode:"]
 ,BulletList