From b3b00da43d5727b050b8647dff3b9600c275a1a0 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Thu, 7 Jan 2016 19:56:44 +0100 Subject: Fix function dropping subtrees tagged :noexport: Continue scanning for comment subtrees beyond only the first block. Note to self: when writing an recursive function, don't forget to, you know, actually recurse. Shout to @mrvdb for noticing this. This fixes #2628. --- tests/Tests/Readers/Org.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests/Tests/Readers') 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" -- cgit v1.2.3