From 6543b05116ee58ef4de62f93dcafeb27617d83e6 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 30 Jul 2021 17:23:46 -0600
Subject: Add RTF reader.

- `rtf` is now supported as an input format as well as output.
- New module Text.Pandoc.Readers.RTF (exporting `readRTF`). [API change]

Closes #3982.
---
 test/rtf/list_complex.native | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 test/rtf/list_complex.native

(limited to 'test/rtf/list_complex.native')

diff --git a/test/rtf/list_complex.native b/test/rtf/list_complex.native
new file mode 100644
index 000000000..53ffdf9bd
--- /dev/null
+++ b/test/rtf/list_complex.native
@@ -0,0 +1,24 @@
+Pandoc (Meta {unMeta = fromList [("author",MetaInlines [Str "Cynthia",Space,Str "Johnson"]),("operator",MetaInlines [Str "John",Space,Str "MacFarlane"]),("title",MetaInlines [Str "Text",Space,Str "before",Space,Str "list"])]})
+[OrderedList (1,Decimal,Period)
+ [[Para [Str "One"]]
+ ,[Para [Str "Two"]
+  ,OrderedList (1,LowerAlpha,Period)
+   [[Para [Str "Three"]]
+   ,[Para [Str "Four"]
+    ,OrderedList (1,LowerRoman,Period)
+     [[Para [Str "Five"]]
+     ,[Para [Str "Six"]
+      ,OrderedList (1,UpperAlpha,Period)
+       [[Para [Str "Seven"]]
+       ,[Para [Str "Eight"]
+        ,OrderedList (1,UpperRoman,Period)
+         [[Para [Str "Nine"]]
+         ,[Para [Str "Ten"]
+          ,BulletList
+           [[Para [Str "Eleven"]]
+           ,[Para [Str "Twelve"]]]]]]]]]]]]]
+,Para [Str "Out",Space,Str "of",Space,Str "list!"]
+,Para [Str "Start",Space,Str "with"]
+,OrderedList (7,Decimal,Period)
+ [[Para [Str "Seven",Space,Str "Start"]]
+ ,[Para [Str "Eight",Space,Str "Continue"]]]]
-- 
cgit v1.2.3