diff options
| author | Ryan Gibb <[email protected]> | 2025-07-24 21:40:08 +0100 |
|---|---|---|
| committer | GitHub <[email protected]> | 2025-07-24 22:40:08 +0200 |
| commit | b84fa66fcb8d080086b36a250ac1c76873c69e92 (patch) | |
| tree | d60c4c1ce74801297895686c2a935a20dc528bad /test | |
| parent | f000fa168bd122fee6e67f5a67bdd6d42d173261 (diff) | |
Org reader: Recognize "fast access" characters in TODO state definitions (#10990)
Diffstat (limited to 'test')
| -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 f0d77bc94..52396b905 100644 --- a/test/Tests/Readers/Org/Block/Header.hs +++ b/test/Tests/Readers/Org/Block/Header.hs @@ -118,6 +118,13 @@ tests = in headerWith ("compile", [], []) 1 (waiting <> space <> "compile") <> headerWith ("lunch", [], []) 1 (cancelled <> space <> "lunch") <> headerWith ("todo-feature", [], []) 1 (done <> space <> "todo-feature") + + , "Fast access TODO states" =: + T.unlines [ "#+TODO: TODO(t) | DONE(d)" + , "* TODO test" + ] =?> + let todoSpan = spanWith ("", ["todo", "TODO"], []) "TODO" + in headerWith ("test", [], []) 1 (todoSpan <> space <> "test") ] , "Tagged headers" =: |