@@ -144,4 +144,14 @@ tests = [ testGroup "inlines"
144144 "docx/comments.native"
145145 "docx/golden/comments.docx"
146146 ]
147+ , testGroup "custom styles"
148+ [ docxTest "custom styles without reference.docx"
149+ def
150+ "docx/custom_style.native"
151+ "docx/golden/custom_style_no_reference.docx"
152+ , docxTest "custom styles without reference.docx"
153+ def{writerReferenceDoc = Just "docx/custom-style-reference.docx"}
154+ "docx/custom_style.native"
155+ "docx/golden/custom_style_reference.docx"
156+ ]
147157 ]