aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-06-20 15:48:00 +0300
committerJohn MacFarlane <jgm@berkeley.edu>2017-06-20 14:48:00 +0200
commit21925284244bb88f927c287c21b48df35234b260 (patch)
treef7640a56728d2af7d63f67f9bacb60d4ee394d3d /test/Tests
parentea1724e35e5ac008ef1293cb7b2b49595392c38e (diff)
downloadpandoc-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.hs17
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"
+ ]
+ ]
]
]