diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2019-12-19 07:09:43 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2019-12-19 20:38:51 +0100 |
| commit | 0a3cc7260cbdbe41596d8c0631acc05cc0fd8f50 (patch) | |
| tree | 68070a3f2aa3071e2bf58c3cb142100dbaefce7b /test/Tests/Readers/Org | |
| parent | 5bd2d28b1946baf37ba880578b3b01d9b36a36d3 (diff) | |
| download | pandoc-0a3cc7260cbdbe41596d8c0631acc05cc0fd8f50.tar.gz | |
Org reader: fix parsing problem for colons in headline
Fixed a problem where words surrounded by colons could causing parse
failures in some cases when they occurred in headers.
Fixes: #5993
Diffstat (limited to 'test/Tests/Readers/Org')
| -rw-r--r-- | test/Tests/Readers/Org/Block/Header.hs | 10 |
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" , "" |