diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-21 15:33:54 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-21 15:52:10 +0300 |
| commit | 0405c5b461ee8d9a57eacc5ff2b44fafa5c0637f (patch) | |
| tree | df807d2a44635cfc3c979a9d37f4949ee717b260 /test/Tests/Writers | |
| parent | 5d3573e780d5056c87bb64858ea0890a27bc1686 (diff) | |
| download | pandoc-0405c5b461ee8d9a57eacc5ff2b44fafa5c0637f.tar.gz | |
Muse reader: parse anchors immediately after headings as IDs
Diffstat (limited to 'test/Tests/Writers')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 77e741534..e2e6ba06c 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -234,6 +234,11 @@ tests = [ testGroup "block elements" , "" , "*** Third level" ] + , "heading with ID" =: + headerWith ("bar", [], []) 2 (text "Foo") =?> + unlines [ "** Foo" + , "#bar" + ] ] , "horizontal rule" =: horizontalRule =?> "----" , "escape horizontal rule" =: para (text "----") =?> "<verbatim>----</verbatim>" |