summaryrefslogtreecommitdiff
path: root/test
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
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')
-rw-r--r--test/Tests/Writers/Org.hs8
-rw-r--r--test/writer.org8
2 files changed, 12 insertions, 4 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
diff --git a/test/writer.org b/test/writer.org
index 604aca21d..3a1fef604 100644
--- a/test/writer.org
+++ b/test/writer.org
@@ -278,13 +278,13 @@ Same thing but with paragraphs:
:CUSTOM_ID: fancy-list-markers
:END:
-2) begins with 2
+2) [@2] begins with 2
3) and now 3
with a continuation
- 4. sublist with roman numerals, starting with 4
+ 4. [@4] sublist with roman numerals, starting with 4
5. more items
1) a subsublist
@@ -296,9 +296,9 @@ Nesting:
1. Upper Roman.
- 6) Decimal start with 6
+ 6) [@6] Decimal start with 6
- 3) Lower alpha with paren
+ 3) [@3] Lower alpha with paren
Autonumbering: