From 180f5cbe631f63bb9ea9791bb02a8c9fa0ce0c37 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Sat, 16 Aug 2014 14:05:56 -0400 Subject: Docx reader: Test for character styles. --- tests/Tests/Readers/Docx.hs | 4 ++++ tests/docx/char_styles.docx | Bin 0 -> 30134 bytes tests/docx/char_styles.native | 4 ++++ 3 files changed, 8 insertions(+) create mode 100644 tests/docx/char_styles.docx create mode 100644 tests/docx/char_styles.native (limited to 'tests') diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index 0e0f6c2c5..234b1b5b7 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -102,6 +102,10 @@ tests = [ testGroup "inlines" "font formatting" "docx/inline_formatting.docx" "docx/inline_formatting.native" + , testCompare + "font formatting with character styles" + "docx/char_styles.docx" + "docx/char_styles.native" , testCompare "hyperlinks" "docx/links.docx" diff --git a/tests/docx/char_styles.docx b/tests/docx/char_styles.docx new file mode 100644 index 000000000..05979b9a7 Binary files /dev/null and b/tests/docx/char_styles.docx differ diff --git a/tests/docx/char_styles.native b/tests/docx/char_styles.native new file mode 100644 index 000000000..7dfc208fb --- /dev/null +++ b/tests/docx/char_styles.native @@ -0,0 +1,4 @@ +[Para [Emph [Str "This",Space,Str "is",Space,Str "all",Space,Str "in",Space,Str "an"],Space,Emph [Strong [Str "italic",Space,Str "style"],Str "."]] +,Para [Emph [Str "This",Space,Str "is",Space,Str "an",Space,Str "italic"],Space,Str "style",Space,Emph [Str "with",Space,Str "some"],Space,Str "words",Space,Emph [Str "unitalicized."]] +,Para [Strong [Str "This",Space,Str "is",Space,Str "all",Space,Str "in",Space,Str "a",Space,Emph [Str "strong",Space,Str "style"],Str "."]] +,Para [Strong [Str "This",Space,Str "is",Space,Str "a",Space,Str "strong"],Space,Str "style",Space,Strong [Str "with",Space,Str "some"],Space,Str "words",Space,Strong [Str "ubolded."]]] -- cgit v1.2.3