From d416f6241079a8d596fd071ed3dc20c4a60a6069 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Mon, 15 Aug 2016 15:33:06 -0400 Subject: Docx writer: test for custom styles. This just tests whether a custom style with a recognizable style (italic etc, defined in a reference.docx) will roundtrip back to that format (i.e., whether `` will roundtrip to `Emph`). The custom styles are defined in the `custom-style-reference.docx` included in the docx dir. --- tests/Tests/Writers/Docx.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'tests/Tests') diff --git a/tests/Tests/Writers/Docx.hs b/tests/Tests/Writers/Docx.hs index d662697a1..8e0f37818 100644 --- a/tests/Tests/Writers/Docx.hs +++ b/tests/Tests/Writers/Docx.hs @@ -137,5 +137,13 @@ tests = [ testGroup "inlines" "stop recording metadata with normal text" "docx/metadata_after_normal.native" ] + , testGroup "customized styles" + [ testCompareWithOpts + ( def{writerReferenceDocx=Just "docx/custom-style-reference.docx"} + , def) + "simple customized blocks and inlines" + "docx/custom-style-roundtrip-start.native" + "docx/custom-style-roundtrip-end.native" + ] ] -- cgit v1.2.3