From 8b00bc6029b9285f872ae517a8d4538c66070fa9 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Mon, 13 May 2019 22:44:53 +0200 Subject: Org reader: fix planning elements in headers level 3 and higher Planning info is now always placed before the subtree contents. Previously, the planning info was placed after the content if the header's subtree was converted to a list, which happens with headers of level 3 and higher per default. Fixes: #5494 --- test/Tests/Readers/Org/Block/Header.hs | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) (limited to 'test/Tests/Readers/Org/Block') diff --git a/test/Tests/Readers/Org/Block/Header.hs b/test/Tests/Readers/Org/Block/Header.hs index 5636d9c2a..37ccd194d 100644 --- a/test/Tests/Readers/Org/Block/Header.hs +++ b/test/Tests/Readers/Org/Block/Header.hs @@ -236,5 +236,29 @@ tests = , " :END:" ] =?> headerWith ("look", [], []) 1 "important" + + , "third and forth level headers" =: + T.unlines [ "#+OPTIONS: p:t h:3" + , "*** Third" + , " CLOSED: [2018-09-05 Wed 13:58]" + , " Text 3" + , "**** Fourth" + , "SCHEDULED: <2019-05-13 Mon 22:42>" + , "Text 4" + ] =?> + mconcat + [ headerWith ("third", [], mempty) 3 "Third" + , plain $ + strong "CLOSED:" <> space <> emph (str "[2018-09-05 Wed 13:58]") + , para "Text 3" + , orderedList [ + mconcat + [ para "Fourth" + , plain $ strong "SCHEDULED:" + <> space + <> emph (str "<2019-05-13 Mon 22:42>") + , para "Text 4" + ]] + ] ] ] -- cgit v1.2.3