diff options
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" + ]] + ] ] ] |