git.iko.soy/typeable/pandoc
on master help sign in
Docx reader: Test for character styles.
180f5cbJesse Rosenthal
tests/Tests/Readers/Docx.hs+4
compare with master
unifiedsplit
@@ -102,6 +102,10 @@ tests = [ testGroup "inlines"
102 "font formatting"
102 "font formatting"
103 "docx/inline_formatting.docx"
103 "docx/inline_formatting.docx"
104 "docx/inline_formatting.native"
104 "docx/inline_formatting.native"
105+ , testCompare
106+ "font formatting with character styles"
107+ "docx/char_styles.docx"
108+ "docx/char_styles.native"
105 , testCompare
109 , testCompare
106 "hyperlinks"
110 "hyperlinks"
107 "docx/links.docx"
111 "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."]]]