diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-19 04:16:57 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-19 04:23:32 +0300 |
| commit | f6abf15832e4b41ed26b285b4a7c8f515ddb139f (patch) | |
| tree | 2a555d23fc6c09df527d25e2e80384f8515a8334 /test/Tests | |
| parent | c0cc9270cbfad719d4cd3b8c57060cb06d41fe78 (diff) | |
| download | pandoc-f6abf15832e4b41ed26b285b4a7c8f515ddb139f.tar.gz | |
Muse reader: parse empty comments correctly
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 28db0191b..41d1d9710 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -421,6 +421,8 @@ tests = , testGroup "Comments" [ "Comment tag" =: "<comment>\nThis is a comment\n</comment>" =?> (mempty::Blocks) , "Line comment" =: "; Comment" =?> (mempty::Blocks) + , "Empty comment" =: ";" =?> (mempty::Blocks) + , "Text after empty comment" =: ";\nfoo" =?> para "foo" -- Make sure we don't consume newline while looking for whitespace , "Not a comment (does not start with a semicolon)" =: " ; Not a comment" =?> para (text "; Not a comment") , "Not a comment (has no space after semicolon)" =: ";Not a comment" =?> para (text ";Not a comment") ] |