summaryrefslogtreecommitdiff
path: root/test/Tests/Writers/Org.hs
diff options
context:
space:
mode:
authorLucas Viana <l240191@dac.unicamp.br>2022-01-06 22:40:53 -0300
committerJohn MacFarlane <jgm@berkeley.edu>2022-01-07 10:48:28 -0800
commit45e2e0d018b01e5a232d0a559dc9832af207ebcb (patch)
treeef5d24b5f54c38fe5fc7440d1cda8ed2144e63a5 /test/Tests/Writers/Org.hs
parentd562de503908fab696b5992af152dabbd6283d11 (diff)
Org writer: support starting number cookies
This complements #7806 by supporting writing Org ordered lists that start at a specific number.
Diffstat (limited to 'test/Tests/Writers/Org.hs')
-rw-r--r--test/Tests/Writers/Org.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/test/Tests/Writers/Org.hs b/test/Tests/Writers/Org.hs
index bd6c9b7ab..240bb27e8 100644
--- a/test/Tests/Writers/Org.hs
+++ b/test/Tests/Writers/Org.hs
@@ -50,6 +50,14 @@ tests =
[ "1. [ ] a"
, "2. [X] b"
]
+ , "ordered task list with starting number"
+ =: orderedListWith
+ (9, DefaultStyle, DefaultDelim)
+ [plain ("☐" <> space <> "a"), plain "☒ b"]
+ =?> T.unlines
+ [ "9. [@9] [ ] a"
+ , "10. [X] b"
+ ]
, test (orgWithOpts def) "bullet without task_lists" $
bulletList [plain "☐ a", plain "☒ b"]
=?> T.unlines