aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers/Org/Block/List.hs
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2021-02-13 09:37:43 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2021-02-13 13:00:37 -0800
commita3beed9db874517fa57b55380658f4e019e809b2 (patch)
tree7575848ae45ecb795a4a8fc2187a9a4db959d8b7 /test/Tests/Readers/Org/Block/List.hs
parent2d60a5127cc28bb6b55c19309d6e8fb6e81fbe66 (diff)
downloadpandoc-a3beed9db874517fa57b55380658f4e019e809b2.tar.gz
Org: support task_lists extension
The tasks lists extension is now supported by the org reader and writer; the extension is turned on by default. Closes: #6336
Diffstat (limited to 'test/Tests/Readers/Org/Block/List.hs')
-rw-r--r--test/Tests/Readers/Org/Block/List.hs13
1 files changed, 13 insertions, 0 deletions
diff --git a/test/Tests/Readers/Org/Block/List.hs b/test/Tests/Readers/Org/Block/List.hs
index 9686b5148..2ee37081e 100644
--- a/test/Tests/Readers/Org/Block/List.hs
+++ b/test/Tests/Readers/Org/Block/List.hs
@@ -118,6 +118,19 @@ tests =
] =?>
bulletList [ plain "", plain "" ]
+ , "Task list" =:
+ T.unlines [ "- [ ] nope"
+ , "- [X] yup"
+ , "- [-] started"
+ , " 1. [X] sure"
+ , " 2. [ ] nuh-uh"
+ ] =?>
+ bulletList [ plain "☐ nope", plain "☒ yup"
+ , mconcat [ plain "☐ started"
+ , orderedList [plain "☒ sure", plain "☐ nuh-uh"]
+ ]
+ ]
+
, "Simple Ordered List" =:
("1. Item1\n" <>
"2. Item2\n") =?>