diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2019-05-13 22:44:53 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2019-05-13 22:55:13 +0200 |
| commit | 8b00bc6029b9285f872ae517a8d4538c66070fa9 (patch) | |
| tree | 250a99a611b0bc1f552c5ceee825a318f3b81704 /test/Tests/Readers/Org/Block | |
| parent | 00ef03827e4ab77a1213b2adf261c818ddae076d (diff) | |
| download | pandoc-8b00bc6029b9285f872ae517a8d4538c66070fa9.tar.gz | |
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
Diffstat (limited to 'test/Tests/Readers/Org/Block')
| -rw-r--r-- | test/Tests/Readers/Org/Block/Header.hs | 24 |
1 files changed, 24 insertions, 0 deletions
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" + ]] + ] ] ] |