aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-08-04 01:41:45 +0300
committerJohn MacFarlane <jgm@berkeley.edu>2017-08-03 15:41:45 -0700
commit7a3a8790de175c9a21d13786214fdea4bb157b3d (patch)
tree9c73a8aad3152db3ec8232934cd56e383d0c7d92 /test
parent38b6adaac09d63501d2febb034dcd776b6de1654 (diff)
downloadpandoc-7a3a8790de175c9a21d13786214fdea4bb157b3d.tar.gz
Muse reader: do not allow headers in blockquotes (#3831)
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/Muse.hs8
1 files changed, 7 insertions, 1 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index a069bb972..6e04fd943 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -132,12 +132,18 @@ tests =
, "Subsubsection" =:
"***** Fifth level\n" =?>
header 5 "Fifth level"
- , "No headers below top level" =:
+ , "No headers in footnotes" =:
T.unlines [ "Foo[1]"
, "[1] * Bar"
] =?>
para (text "Foo" <>
note (para "* Bar"))
+ , "No headers in quotes" =:
+ T.unlines [ "<quote>"
+ , "* Hi"
+ , "</quote>"
+ ] =?>
+ blockQuote (para "* Hi")
]
, testGroup "Footnotes"
[ "Simple footnote" =: