diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-06-20 15:48:00 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-20 14:48:00 +0200 |
| commit | 21925284244bb88f927c287c21b48df35234b260 (patch) | |
| tree | f7640a56728d2af7d63f67f9bacb60d4ee394d3d /test/Tests | |
| parent | ea1724e35e5ac008ef1293cb7b2b49595392c38e (diff) | |
| download | pandoc-21925284244bb88f927c287c21b48df35234b260.tar.gz | |
Muse reader: check that headers start at the first column (#3749)
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 85d6f5c48..cac69dffa 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -108,6 +108,12 @@ tests = , "Subsubsection" =: "***** Fifth level\n" =?> header 5 "Fifth level" + , "No headers below top level" =: + T.unlines [ "Foo[1]" + , "[1] * Bar" + ] =?> + para (text "Foo" <> + note (para "* Bar")) ] , testGroup "Footnotes" [ "Simple footnote" =: @@ -273,5 +279,16 @@ tests = , para "c" ] ] + -- Headers in first column of list continuation are not allowed + , "No headers in list continuation" =: + T.unlines + [ " - Foo" + , "" + , " * Bar" + ] =?> + bulletList [ mconcat [ para "Foo" + , para "* Bar" + ] + ] ] ] |