diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2019-05-05 13:53:11 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2019-05-05 13:53:11 +0200 |
| commit | 7e7bc3493ef7ca17fbd8746bae8731dfecef60dd (patch) | |
| tree | 95b8b1a93b1c46c7997b111980894691a5401d18 /test/Tests/Readers/Org/Block | |
| parent | 545da6113ce90ab81fe7cf8c80f942b2e98c4eaf (diff) | |
| download | pandoc-7e7bc3493ef7ca17fbd8746bae8731dfecef60dd.tar.gz | |
Org reader: recognize emphasis after TODO/DONE keyword
Fixes: #5484
Diffstat (limited to 'test/Tests/Readers/Org/Block')
| -rw-r--r-- | test/Tests/Readers/Org/Block/Header.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/Tests/Readers/Org/Block/Header.hs b/test/Tests/Readers/Org/Block/Header.hs index e20571b53..5636d9c2a 100644 --- a/test/Tests/Readers/Org/Block/Header.hs +++ b/test/Tests/Readers/Org/Block/Header.hs @@ -87,6 +87,13 @@ tests = let todoSpan = spanWith ("", ["done", "DONE"], []) "DONE" in headerWith ("header", [], []) 1 (todoSpan <> space <> "header") + , "emphasis in first word" =: + "** TODO /fix/ this" =?> + let todoSpan = spanWith ("", ["todo", "TODO"], []) "TODO" + in headerWith ("fix-this", [], []) + 2 + (todoSpan <> space <> emph "fix" <> space <> "this") + , "Header with unknown todo keyword" =: "* WAITING header" =?> headerWith ("waiting-header", [], []) 1 "WAITING header" |