diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2019-02-06 02:25:24 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2019-02-06 02:25:24 +0300 |
| commit | 59fa4eb17e1a518609a988cbecb8d6d9d74b6810 (patch) | |
| tree | da017449e9e3b2254fa5301f5ba9378b0cdd5c5b | |
| parent | 37a82b0b11b0214f00cdcd232e33c0a1e9f79361 (diff) | |
| download | pandoc-59fa4eb17e1a518609a988cbecb8d6d9d74b6810.tar.gz | |
Muse reader: test that block level markup does not break <verbatim>
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index e2b9ff27f..8fbe6a955 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -226,6 +226,13 @@ tests = , "Verbatim tag after text" =: "Foo <verbatim>bar</verbatim>" =?> para "Foo bar" + , "Verbatim tag escapes block level markup" =: + T.unlines [ "Foo <verbatim>bar" + , "* Not a heading" + , "</verbatim>baz" + ] =?> + para "Foo bar\n* Not a heading\nbaz" + , "Class tag" =: "<class name=\"foo\">bar</class>" =?> para (spanWith ("", ["foo"], []) "bar") , "Class tag without name" =: "<class>foobar</class>" =?> para (spanWith ("", [], []) "foobar") |