diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2014-10-18 21:59:44 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2014-10-18 22:11:53 +0200 |
| commit | e3c36ed6ce5f9ea3e06c491d5a1ac892bfcd6089 (patch) | |
| tree | 1ebef0c76404c9e3ee7660f409f43c77fa19a04d /tests | |
| parent | 8b60d430f2095c42daf26f2921359d5c49f0757d (diff) | |
| download | pandoc-e3c36ed6ce5f9ea3e06c491d5a1ac892bfcd6089.tar.gz | |
Org reader: Drop COMMENT document trees
Document trees under a header starting with the word `COMMENT` are
comment trees and should not be exported. Those trees are dropped
silently.
This closes #1678.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index 92ec8155b..b37825ad5 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -450,6 +450,18 @@ tests = , header 2 ("walk" <> space <> "dog") ] + , "Comment Trees" =: + unlines [ "* COMMENT A comment tree" + , " Not much going on here" + , "** This will be dropped" + , "* Comment tree above" + ] =?> + header 1 "Comment tree above" + + , "Nothing but a COMMENT header" =: + "* COMMENT Test" =?> + (mempty::Blocks) + , "Paragraph starting with an asterisk" =: "*five" =?> para "*five" |