diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-19 14:17:59 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-19 14:17:59 +0300 |
| commit | ce4326a4f12180844532febf93261f098cd6c5aa (patch) | |
| tree | ba04db8115512a888acba087a02fc3f524c73a56 /test | |
| parent | bc9d296e5ae34f14cc03d7ca5e3b1f4295eac1d2 (diff) | |
| download | pandoc-ce4326a4f12180844532febf93261f098cd6c5aa.tar.gz | |
Muse reader: allow "-" in anchors
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 8474b2509..a7eb9d0eb 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -637,6 +637,11 @@ tests = , "#anchor and ends here." ] =?> para ("Paragraph starts here\n" <> spanWith ("anchor", [], []) mempty <> "and ends here.") + , "Anchor with \"-\"" =: + T.unlines [ "; A comment to make sure anchor is not parsed as a directive" + , "#anchor-id Target" + ] =?> + para (spanWith ("anchor-id", [], []) mempty <> "Target") ] , testGroup "Footnotes" [ "Simple footnote" =: |