Docx writer tests: Add tests for custom styles

2018-01-27 11:46:41 -05:00 · 2018-01-27 11:46:41 -05:00 · ebcd04f57a
commit ebcd04f57a
parent a66bfd9071
4 changed files with 10 additions and 0 deletions
--- a/test/Tests/Writers/Docx.hs
+++ b/test/Tests/Writers/Docx.hs
@ -144,4 +144,14 @@ tests = [ testGroup "inlines"
            "docx/comments.native"
            "docx/golden/comments.docx"
          ]
+        , testGroup "custom styles"
+          [ docxTest "custom styles without reference.docx"
+            def
+            "docx/custom_style.native"
+            "docx/golden/custom_style_no_reference.docx"
+          , docxTest "custom styles without reference.docx"
+            def{writerReferenceDoc = Just "docx/custom-style-reference.docx"}
+            "docx/custom_style.native"
+            "docx/golden/custom_style_reference.docx"
+          ]
        ]
--- a/test/docx/custom-style-roundtrip-start.native
+++ b/test/docx/custom-style-roundtrip-start.native
--- a/test/docx/golden/custom_style_no_reference.docx
+++ b/test/docx/golden/custom_style_no_reference.docx
--- a/test/docx/golden/custom_style_reference.docx
+++ b/test/docx/golden/custom_style_reference.docx