summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOphir Lifshitz <hangfromthefloor@gmail.com>2015-07-21 23:14:38 -0400
committerOphir Lifshitz <hangfromthefloor@gmail.com>2015-07-24 02:53:44 -0400
commit490db2d7db0c934aa4016b54dc4ea8614f334da3 (patch)
treef16dfeece141808587f7d4ac2be413eb76056294
parent7ef8700734ea8caae083e372b51cfe7bf2c51f9b (diff)
HTML Reader: Test <ol> type, class, and inline list-style(-type) CSS
-rw-r--r--tests/html-reader.html7
-rw-r--r--tests/html-reader.native13
2 files changed, 20 insertions, 0 deletions
diff --git a/tests/html-reader.html b/tests/html-reader.html
index b6dd50fcc..3bd5e4ce3 100644
--- a/tests/html-reader.html
+++ b/tests/html-reader.html
@@ -185,6 +185,13 @@ These should not be escaped: \$ \\ \> \[ \{
<li><p>Item 3.</p>
</li>
</ol>
+<p>List styles:</p>
+<ol></ol>
+<ol type="i"></ol>
+<ol class="lower-roman"></ol>
+<ol style="lower-roman"></ol>
+<ol style="list-style: lower-roman;"></ol>
+<ol style="list-style-type: lower-roman;"></ol>
<h2>Nested</h2>
<ul>
<li>Tab<ul>
diff --git a/tests/html-reader.native b/tests/html-reader.native
index b2d660fda..1abb0ba79 100644
--- a/tests/html-reader.native
+++ b/tests/html-reader.native
@@ -116,6 +116,19 @@ Pandoc (Meta {unMeta = fromList [("generator",MetaInlines [Str "pandoc"]),("titl
,Para [Str "Item",Space,Str "1.",Space,Str "graf",Space,Str "two.",Space,Str "The",Space,Str "quick",Space,Str "brown",Space,Str "fox",Space,Str "jumped",Space,Str "over",Space,Str "the",Space,Str "lazy",Space,Str "dog's",Space,Str "back."]]
,[Para [Str "Item",Space,Str "2."]]
,[Para [Str "Item",Space,Str "3."]]]
+,Para [Str "List",Space,Str "styles:"]
+,OrderedList (1,DefaultStyle,DefaultDelim)
+ []
+,OrderedList (1,LowerRoman,DefaultDelim)
+ []
+,OrderedList (1,LowerRoman,DefaultDelim)
+ []
+,OrderedList (1,DefaultStyle,DefaultDelim)
+ []
+,OrderedList (1,LowerRoman,DefaultDelim)
+ []
+,OrderedList (1,LowerRoman,DefaultDelim)
+ []
,Header 2 ("",[],[]) [Str "Nested"]
,BulletList
[[Plain [Str "Tab"]