diff options
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Writers/Docx.hs | 10 | ||||
| -rw-r--r-- | test/Tests/Writers/Powerpoint.hs | 8 |
2 files changed, 18 insertions, 0 deletions
diff --git a/test/Tests/Writers/Docx.hs b/test/Tests/Writers/Docx.hs index d17984d63..c958ddf7d 100644 --- a/test/Tests/Writers/Docx.hs +++ b/test/Tests/Writers/Docx.hs @@ -156,4 +156,14 @@ tests = [ testGroup "inlines" "docx/custom_style.native" "docx/golden/custom_style_reference.docx" ] + , testGroup "metadata" + [ docxTest "document properties (core, custom)" + def + "docx/document-properties.native" + "docx/golden/document-properties.docx" + , docxTest "document properties (short description)" + def + "docx/document-properties-short-desc.native" + "docx/golden/document-properties-short-desc.docx" + ] ] diff --git a/test/Tests/Writers/Powerpoint.hs b/test/Tests/Writers/Powerpoint.hs index f3016cdb6..9c5409310 100644 --- a/test/Tests/Writers/Powerpoint.hs +++ b/test/Tests/Writers/Powerpoint.hs @@ -99,4 +99,12 @@ tests = groupPptxTests [ pptxTests "Inline formatting" def "pptx/raw_ooxml.native" "pptx/raw_ooxml.pptx" + , pptxTests "metadata, custom properties" + def + "pptx/document-properties.native" + "pptx/document-properties.pptx" + , pptxTests "metadata, short description" + def + "pptx/document-properties-short-desc.native" + "pptx/document-properties-short-desc.pptx" ] |