From 90269cb213ae6b2db31cc11199d1ce8d378bdac8 Mon Sep 17 00:00:00 2001
From: Matthew Pickering <matthewtpickering@gmail.com>
Date: Thu, 27 Mar 2014 19:58:14 +0000
Subject: Tests updated to reflect changes to readers.

Previously normalisation was handled by the `normalizeSpaces` function. The behavoir of the builder monoid is slightly different and melds together more items such as consecutive strings and spaces adjacent to line breaks. The tests have been changed to reflect this.

All relevant tests passed when the string melding line of the builder monoid was commented out.
---
 tests/html-reader.html | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests/html-reader.html')

diff --git a/tests/html-reader.html b/tests/html-reader.html
index 69bb9ba8a..b7e5c0d2f 100644
--- a/tests/html-reader.html
+++ b/tests/html-reader.html
@@ -426,5 +426,10 @@ An e-mail address: nobody [at] nowhere.net<blockquote>
 <pre><code>  { &lt;code> }
 </code></pre>
 <p>If you want, you can use a caret at the beginning of every line, as with blockquotes, but all that you need is a caret at the beginning of the first line of the block and any preceding blank lines.</p>
+<p>text<em> Leading space</em></p>
+<p><em>Trailing space </em>text</p>
+<p>text<em>   Leading spaces</em></p>
+<p><em>Trailing spaces    </em>text</p>
+
 </body>
 </html>
-- 
cgit v1.2.3


From 976f4f2d8fd8b5b984da52dc63d665038c4d023f Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Tue, 1 Apr 2014 10:15:21 -0700
Subject: Added HTML reader tests for empty strong, emph.

---
 tests/html-reader.html   | 1 +
 tests/html-reader.native | 1 +
 2 files changed, 2 insertions(+)

(limited to 'tests/html-reader.html')

diff --git a/tests/html-reader.html b/tests/html-reader.html
index b7e5c0d2f..1e104b00f 100644
--- a/tests/html-reader.html
+++ b/tests/html-reader.html
@@ -302,6 +302,7 @@ These should not be escaped:  \$ \\ \> \[ \{
 <h1>Inline Markup</h1>
 <p>This is <em>emphasized</em>, and so <em>is this</em>.</p>
 <p>This is <strong>strong</strong>, and so <strong>is this</strong>.</p>
+<p>Empty <strong></strong> and <em></em>.
 <p>An <em><a href="/url">emphasized link</a></em>.</p>
 <p><strong><em>This is strong and em.</em></strong></p>
 <p>So is <strong><em>this</em></strong> word.</p>
diff --git a/tests/html-reader.native b/tests/html-reader.native
index a6a3ab177..8fbecf34f 100644
--- a/tests/html-reader.native
+++ b/tests/html-reader.native
@@ -186,6 +186,7 @@ Pandoc (Meta {unMeta = fromList [("generator",MetaInlines [Str "pandoc"]),("titl
 ,Header 1 ("",[],[]) [Str "Inline",Space,Str "Markup"]
 ,Para [Str "This",Space,Str "is",Space,Emph [Str "emphasized"],Str ",",Space,Str "and",Space,Str "so",Space,Emph [Str "is",Space,Str "this"],Str "."]
 ,Para [Str "This",Space,Str "is",Space,Strong [Str "strong"],Str ",",Space,Str "and",Space,Str "so",Space,Strong [Str "is",Space,Str "this"],Str "."]
+,Para [Str "Empty",Space,Strong [],Space,Str "and",Space,Emph [],Str "."]
 ,Para [Str "An",Space,Emph [Link [Str "emphasized",Space,Str "link"] ("/url","")],Str "."]
 ,Para [Strong [Emph [Str "This",Space,Str "is",Space,Str "strong",Space,Str "and",Space,Str "em."]]]
 ,Para [Str "So",Space,Str "is",Space,Strong [Emph [Str "this"]],Space,Str "word."]
-- 
cgit v1.2.3


From 9090c549aab29552ee29e88ab2d38995a42a421e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 16 Jun 2014 15:12:10 -0700
Subject: Added failing HTML reader test for table.

See #1341.
---
 tests/html-reader.html   | 20 +++++++++++++++++++-
 tests/html-reader.native | 13 ++++++++++++-
 2 files changed, 31 insertions(+), 2 deletions(-)

(limited to 'tests/html-reader.html')

diff --git a/tests/html-reader.html b/tests/html-reader.html
index 1e104b00f..d059d7b4b 100644
--- a/tests/html-reader.html
+++ b/tests/html-reader.html
@@ -431,6 +431,24 @@ An e-mail address: nobody [at] nowhere.net<blockquote>
 <p><em>Trailing space </em>text</p>
 <p>text<em>   Leading spaces</em></p>
 <p><em>Trailing spaces    </em>text</p>
-
+<h1>Tables</h1>
+<table>
+    <tr>
+        <th>X</th>
+        <th>Y</th>
+        <th>Z</th>
+    </tr>
+    <tr>
+        <td>1</td>
+        <td>2</td>
+        <td>3</td>
+    </tr>
+    <tr>
+        <td>4</td>
+        <td>5</td>
+        <td>6</td>
+    </tr>
+</table>
+</body>
 </body>
 </html>
diff --git a/tests/html-reader.native b/tests/html-reader.native
index 8fbecf34f..85866aef1 100644
--- a/tests/html-reader.native
+++ b/tests/html-reader.native
@@ -308,4 +308,15 @@ Pandoc (Meta {unMeta = fromList [("generator",MetaInlines [Str "pandoc"]),("titl
 ,Para [Str "text",Space,Emph [Str "Leading",Space,Str "space"]]
 ,Para [Emph [Str "Trailing",Space,Str "space"],Space,Str "text"]
 ,Para [Str "text",Space,Emph [Str "Leading",Space,Str "spaces"]]
-,Para [Emph [Str "Trailing",Space,Str "spaces"],Space,Str "text"]]
+,Para [Emph [Str "Trailing",Space,Str "spaces"],Space,Str "text"]
+,Header 1 ("",[],[]) [Str "Tables"]
+,Table [] [AlignLeft,AlignLeft,AlignLeft] [0.3333333333333333,0.3333333333333333,0.3333333333333333]
+ [[Plain [Str "X"]]
+ ,[Plain [Str "Y"]]
+ ,[Plain [Str "Z"]]]
+ [[[Plain [Str "1"]]
+  ,[Plain [Str "2"]]
+  ,[Plain [Str "3"]]]
+ ,[[Plain [Str "4"]]
+  ,[Plain [Str "5"]]
+  ,[Plain [Str "6"]]]]]
-- 
cgit v1.2.3