aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-10-18 13:19:26 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-10-18 13:19:26 -0700
commita1b5997af499252cde722a6250657f21e960a50a (patch)
tree1ebef0c76404c9e3ee7660f409f43c77fa19a04d /tests
parent8b60d430f2095c42daf26f2921359d5c49f0757d (diff)
parente3c36ed6ce5f9ea3e06c491d5a1ac892bfcd6089 (diff)
downloadpandoc-a1b5997af499252cde722a6250657f21e960a50a.tar.gz
Merge pull request #1702 from tarleb/org-comment-trees
Org reader: Drop COMMENT document trees
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Readers/Org.hs12
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"