Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Added failing HTML reader test for table.

Browse source 
See #1341.
This commit is contained in:
John MacFarlane 2014-06-16 15:12:10 -07:00
parent 2b364b34bb
commit 9090c549aa
2 changed files with 31 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
tests/html-reader.html
View file

@ -431,6 +431,24 @@ An e-mail address: nobody [at] nowhere.net<blockquote>
<p><em>Trailing space </em>text</p> <p><em>Trailing space </em>text</p>
<p>text<em> Leading spaces</em></p> <p>text<em> Leading spaces</em></p>
<p><em>Trailing spaces </em>text</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> </body>
</html> </html>

13
tests/html-reader.native
View file

@ -308,4 +308,15 @@ Pandoc (Meta {unMeta = fromList [("generator",MetaInlines [Str "pandoc"]),("titl
,Para [Str "text",Space,Emph [Str "Leading",Space,Str "space"]] ,Para [Str "text",Space,Emph [Str "Leading",Space,Str "space"]]
,Para [Emph [Str "Trailing",Space,Str "space"],Space,Str "text"] ,Para [Emph [Str "Trailing",Space,Str "space"],Space,Str "text"]
,Para [Str "text",Space,Emph [Str "Leading",Space,Str "spaces"]] ,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"]]]]]