diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-22 12:06:25 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-22 13:05:44 -0500 |
| commit | ffcecfacb1e60e68e5a486bf815bf77db7a34759 (patch) | |
| tree | d5b0191648c735515a1a5fc294c686d13f9122bc /test | |
| parent | 5262c0853acbef6dd25d9d6cbda26120859b45ff (diff) | |
| download | pandoc-ffcecfacb1e60e68e5a486bf815bf77db7a34759.tar.gz | |
Docx reader tests: test custom style extension.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Docx.hs | 11 | ||||
| -rw-r--r-- | test/docx/custom-style-no-styles.native | 4 | ||||
| -rw-r--r-- | test/docx/custom-style-with-styles.native | 7 |
3 files changed, 22 insertions, 0 deletions
diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs index 9c9a8179b..cef80d6d1 100644 --- a/test/Tests/Readers/Docx.hs +++ b/test/Tests/Readers/Docx.hs @@ -372,6 +372,17 @@ tests = [ testGroup "inlines" "image extraction" "docx/image.docx" ] + , testGroup "custom styles" + [ testCompare + "custom styles (`+styles`) not enabled (default)" + "docx/custom-style-reference.docx" + "docx/custom-style-no-styles.native" + , testCompareWithOpts + def{readerExtensions=extensionsFromList [Ext_styles]} + "custom styles (`+styles`) enabled" + "docx/custom-style-reference.docx" + "docx/custom-style-with-styles.native" + ] , testGroup "metadata" [ testCompareWithOpts def{readerStandalone=True} "metadata fields" diff --git a/test/docx/custom-style-no-styles.native b/test/docx/custom-style-no-styles.native new file mode 100644 index 000000000..b024f16b2 --- /dev/null +++ b/test/docx/custom-style-no-styles.native @@ -0,0 +1,4 @@ +[Para [Str "This",Space,Str "is",Space,Str "some",Space,Str "text."] +,Para [Str "This",Space,Str "is",Space,Str "text",Space,Str "with",Space,Str "an",Space,Emph [Str "emphasized"],Space,Str "text",Space,Str "style.",Space,Str "And",Space,Str "this",Space,Str "is",Space,Str "text",Space,Str "with",Space,Str "a",Space,Strong [Str "strengthened"],Space,Str "text",Space,Str "style."] +,BlockQuote + [Para [Str "Here",Space,Str "is",Space,Str "a",Space,Str "styled",Space,Str "paragraph",Space,Str "that",Space,Str "inherits",Space,Str "from",Space,Str "Block",Space,Str "Text."]]] diff --git a/test/docx/custom-style-with-styles.native b/test/docx/custom-style-with-styles.native new file mode 100644 index 000000000..146fea078 --- /dev/null +++ b/test/docx/custom-style-with-styles.native @@ -0,0 +1,7 @@ +[Div ("",[],[("custom-style","FirstParagraph")]) + [Para [Str "This",Space,Str "is",Space,Str "some",Space,Str "text."]] +,Div ("",[],[("custom-style","BodyText")]) + [Para [Str "This",Space,Str "is",Space,Str "text",Space,Str "with",Space,Str "an",Space,Emph [Span ("",[],[("custom-style","Emphatic")]) [Span ("",[],[("custom-style","Emphatic")]) [Str "emphasized"]]],Space,Str "text",Space,Str "style.",Space,Str "And",Space,Str "this",Space,Str "is",Space,Str "text",Space,Str "with",Space,Str "a",Space,Strong [Span ("",[],[("custom-style","Strengthened")]) [Span ("",[],[("custom-style","Strengthened")]) [Str "strengthened"]]],Space,Str "text",Space,Str "style."]] +,Div ("",[],[("custom-style","MyBlockStyle")]) + [BlockQuote + [Para [Str "Here",Space,Str "is",Space,Str "a",Space,Str "styled",Space,Str "paragraph",Space,Str "that",Space,Str "inherits",Space,Str "from",Space,Str "Block",Space,Str "Text."]]]] |