diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-01-07 11:34:27 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-01-07 11:34:27 -0800 |
| commit | 9320d359a218a59e28b9a0f0d63e1c2f81ff1214 (patch) | |
| tree | 0aa41b27acec9e3fc0469662d2bf31243697cb3c /tests/Tests | |
| parent | d2dfaccb999357b5f90e096bd42bbc087d9d210e (diff) | |
| parent | b3b00da43d5727b050b8647dff3b9600c275a1a0 (diff) | |
| download | pandoc-9320d359a218a59e28b9a0f0d63e1c2f81ff1214.tar.gz | |
Merge pull request #2629 from tarleb/org-noexport-fix
Fix function dropping subtrees tagged :noexport:
Diffstat (limited to 'tests/Tests')
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index 2bde26f0f..bb3bffe22 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -569,6 +569,16 @@ tests = ] =?> (mempty::Blocks) + , "Subtree with :noexport:" =: + unlines [ "* Exported" + , "** This isn't exported :noexport:" + , "*** This neither" + , "** But this is" + ] =?> + mconcat [ headerWith ("exported", [], []) 1 "Exported" + , headerWith ("but-this-is", [], []) 2 "But this is" + ] + , "Paragraph starting with an asterisk" =: "*five" =?> para "*five" |