diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-16 14:05:56 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-16 14:05:56 -0400 |
| commit | 180f5cbe631f63bb9ea9791bb02a8c9fa0ce0c37 (patch) | |
| tree | 328b7db8c4266d359a518731fa470e361a7ae91a | |
| parent | 9969b2ebee7a9e8d586ef0a369bc6c549c7a8df6 (diff) | |
| download | pandoc-180f5cbe631f63bb9ea9791bb02a8c9fa0ce0c37.tar.gz | |
Docx reader: Test for character styles.
| -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."]]] |