git.iko.soy/typeable/pandoc
on master help sign in
Docx reader: Test for character styles.
commit180f5cbe631f63bb9ea9791bb02a8c9fa0ce0c37 authorJesse Rosenthal <jrosenthal@jhu.edu> dateSat 16 Aug 2014, 14:05 (12 years ago) parent9969b2e
3 files changed+8
tests/Tests/Readers/Docx.hs+4 tests/docx/char_styles.docx tests/docx/char_styles.native+4
tests/Tests/Readers/Docx.hs+4
@@ -102,6 +102,10 @@ tests = [ testGroup "inlines"
102102 "font formatting"
103103 "docx/inline_formatting.docx"
104104 "docx/inline_formatting.native"
105+ , testCompare
106+ "font formatting with character styles"
107+ "docx/char_styles.docx"
108+ "docx/char_styles.native"
105109 , testCompare
106110 "hyperlinks"
107111 "docx/links.docx"
tests/docx/char_styles.docxnew file

Binary file not shown.

tests/docx/char_styles.nativenew file+4
@@ -0,0 +1,4 @@
1+[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 "."]]
2+,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."]]
3+,Para [Strong [Str "This",Space,Str "is",Space,Str "all",Space,Str "in",Space,Str "a",Space,Emph [Str "strong",Space,Str "style"],Str "."]]
4+,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."]]]