From 7a3a8790de175c9a21d13786214fdea4bb157b3d Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Fri, 4 Aug 2017 01:41:45 +0300 Subject: Muse reader: do not allow headers in blockquotes (#3831) --- test/Tests/Readers/Muse.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'test') 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 [ "" + , "* Hi" + , "" + ] =?> + blockQuote (para "* Hi") ] , testGroup "Footnotes" [ "Simple footnote" =: -- cgit v1.2.3