diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-08-07 11:08:53 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-08-07 11:08:53 -0700 |
| commit | 74c31abb1aa696760d20efb202369e1cb0ecfd20 (patch) | |
| tree | ca577819929a6e6f52f8c270606c673ad2bc7d76 /tests | |
| parent | 3e8590d8a47be8e45fb20f25530399b2134a52ab (diff) | |
| parent | 18b1b21a6af5638f16c9aca745f463bfd65e8417 (diff) | |
Merge pull request #2327 from hftf/list-style
HTML Reader: Correctly parse inline list-style(-type) for <ol>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/html-reader.html | 7 | ||||
| -rw-r--r-- | tests/html-reader.native | 13 |
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"] |