diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-01-19 18:33:07 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2018-01-19 18:33:07 -0700 |
| commit | 46cd6429d8a8b47a265093c433e69cb29103282e (patch) | |
| tree | 394f10bc776778e3ad7c77e4ec5aa0abe51925b6 /test | |
| parent | 3eac24c8cf321c743e904eb26ab0acb7cdca1b2e (diff) | |
| parent | a0ee8420967c1973e1aef0b94ceebc2ce10cb0d8 (diff) | |
Merge pull request #4259 from italia/4248
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") =?> |