diff options
| author | danse <f.occhipinti@gmail.com> | 2018-01-15 12:24:20 +0100 |
|---|---|---|
| committer | danse <f.occhipinti@gmail.com> | 2018-01-19 15:57:54 +0100 |
| commit | 2165efef7e3608b5c8e7f144b4f3884635410bc5 (patch) | |
| tree | cca4c2c896823725c735be13376b31eb3dbcf51c /test | |
| parent | 01499b766b16f4ab1c7ce4e3e82780a099c6dd37 (diff) | |
| download | pandoc-2165efef7e3608b5c8e7f144b4f3884635410bc5.tar.gz | |
in RST writer insert comment between lists and quotes, closes #4248
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Writers/RST.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/Tests/Writers/RST.hs b/test/Tests/Writers/RST.hs index 13944ed34..4c0a926bb 100644 --- a/test/Tests/Writers/RST.hs +++ b/test/Tests/Writers/RST.hs @@ -40,6 +40,16 @@ tests = [ testGroup "rubrics" , " :name: foo" , " :class: baz"] ] + , testGroup "ligatures" -- handling specific sequences of blocks + [ "a list is closed by a comment before a quote" =: -- issue 4248 + bulletList [plain "bulleted"] <> blockQuote (plain "quoted") =?> + unlines + [ "- bulleted" + , "" + , ".." + , "" + , " quoted"] + ] , testGroup "headings" [ "normal heading" =: header 1 (text "foo") =?> |