diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Readers/Docx.hs | 4 | ||||
| -rw-r--r-- | tests/docx/char_styles.docx | bin | 0 -> 30134 bytes | |||
| -rw-r--r-- | tests/docx/char_styles.native | 4 |
3 files changed, 8 insertions, 0 deletions
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 @@ -103,6 +103,10 @@ tests = [ testGroup "inlines" "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" "docx/links.native" diff --git a/tests/docx/char_styles.docx b/tests/docx/char_styles.docx Binary files differnew file mode 100644 index 000000000..05979b9a7 --- /dev/null +++ b/tests/docx/char_styles.docx 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."]]] |