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')

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