diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-08-11 11:21:49 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-11 11:22:39 -0700 |
| commit | 6fae136cbb1ed28047e615217b5ce082875f5b19 (patch) | |
| tree | dbc355f83904bde976f67cbff188ed8cededde70 /tests/textile-reader.native | |
| parent | 4a535211d8a9ef80e859925694e1b06e76f62196 (diff) | |
Textile reader: list and HTML block parsing improvements.
Closes #1513.
Lists can now start without an intervening blank line.
Also, html block-level tags that don't start a line are parsed
as RawInline and don't interrupt paragraphs, as in RedCloth.
Diffstat (limited to 'tests/textile-reader.native')
| -rw-r--r-- | tests/textile-reader.native | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/tests/textile-reader.native b/tests/textile-reader.native index f82c4a896..0a0b10bd3 100644 --- a/tests/textile-reader.native +++ b/tests/textile-reader.native @@ -67,6 +67,11 @@ Pandoc (Meta {unMeta = fromList []}) ,BulletList [[Plain [Str "one"]] ,[Plain [Str "two",LineBreak,Str "->",Space,Str "and",Space,Str "more"]]] +,Header 2 ("issue-1513",[],[]) [Str "Issue",Space,Str "#1513"] +,Para [Str "List:"] +,BulletList + [[Plain [Str "one"]] + ,[Plain [Str "two"]]] ,Header 2 ("definition-list",[],[]) [Str "Definition",Space,Str "List"] ,DefinitionList [([Str "coffee"], @@ -145,13 +150,9 @@ Pandoc (Meta {unMeta = fromList []}) ,RawBlock (Format "html") "<div class=\"foobar\">" ,Para [Str "any",Space,Strong [Str "Raw",Space,Str "HTML",Space,Str "Block"],Space,Str "with",Space,Str "bold"] ,RawBlock (Format "html") "</div>" -,Para [Str "Html",Space,Str "blocks",Space,Str "can",Space,Str "be"] -,RawBlock (Format "html") "<div>" -,Para [Str "inlined"] -,RawBlock (Format "html") "</div>" -,Para [Str "as",Space,Str "well."] +,Para [Str "Html",Space,Str "blocks",Space,Str "can",Space,Str "be",Space,RawInline (Format "html") "<div>",Str "inlined",RawInline (Format "html") "</div>",Space,Str "as",Space,Str "well."] ,BulletList - [[Plain [Str "this",Space,Str "<div>",Space,Str "won\8217t",Space,Str "produce",Space,Str "raw",Space,Str "html",Space,Str "blocks",Space,Str "</div>"]] + [[Plain [Str "this",Space,RawInline (Format "html") "<div>",Space,Str "won\8217t",Space,Str "produce",Space,Str "raw",Space,Str "html",Space,Str "blocks",Space,RawInline (Format "html") "</div>"]] ,[Plain [Str "but",Space,Str "this",Space,RawInline (Format "html") "<strong>",Space,Str "will",Space,Str "produce",Space,Str "inline",Space,Str "html",Space,RawInline (Format "html") "</strong>"]]] ,Para [Str "Can",Space,Str "you",Space,Str "prove",Space,Str "that",Space,Str "2",Space,Str "<",Space,Str "3",Space,Str "?"] ,Header 1 ("raw-latex",[],[]) [Str "Raw",Space,Str "LaTeX"] |