aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers
diff options
context:
space:
mode:
Diffstat (limited to 'test/Tests/Readers')
-rw-r--r--test/Tests/Readers/Org/Block/Header.hs10
1 files changed, 10 insertions, 0 deletions
diff --git a/test/Tests/Readers/Org/Block/Header.hs b/test/Tests/Readers/Org/Block/Header.hs
index 37ccd194d..d953ed606 100644
--- a/test/Tests/Readers/Org/Block/Header.hs
+++ b/test/Tests/Readers/Org/Block/Header.hs
@@ -142,6 +142,16 @@ tests =
"* This: is not: tagged" =?>
headerWith ("this-is-not-tagged", [], []) 1 "This: is not: tagged"
+ , "Untagged header time followed by colon" =:
+ "** Meeting at 5:23: free food" =?>
+ let attr = ("meeting-at-523-free-food", [], [])
+ in headerWith attr 2 "Meeting at 5:23: free food"
+
+ , "tag followed by text" =:
+ "*** Looks like a :tag: but isn't" =?>
+ let attr = ("looks-like-a-tag-but-isnt", [], [])
+ in headerWith attr 3 "Looks like a :tag: but isn't"
+
, "Header starting with strokeout text" =:
T.unlines [ "foo"
, ""