From 3653018a709e0f324524e2219789e4fa26c88e8e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 12 Aug 2014 14:10:52 -0700
Subject: Added mathml tests for docbook reader.

---
 tests/docbook-reader.docbook | 48 ++++++++++++++++++++++++++++++++++++++++++++
 tests/docbook-reader.native  |  2 ++
 2 files changed, 50 insertions(+)

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:  \$ \\ \&gt; \[ \{
     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
-- 
cgit v1.2.3