From 7e7bc3493ef7ca17fbd8746bae8731dfecef60dd Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Sun, 5 May 2019 13:53:11 +0200
Subject: Org reader: recognize emphasis after TODO/DONE keyword
Fixes: #5484
---
test/Tests/Readers/Org/Block/Header.hs | 7 +++++++
1 file changed, 7 insertions(+)
(limited to 'test')
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"
--
cgit v1.2.3