test(docx): add test for SVG DPI

This will check that the appropriate fallback PNGs are generated

Signed-off-by: Edwin Török <[email protected]>

Author: edwintorok

test/Tests/Writers/Docx.hs

@@ -24,6 +24,11 @@ tests = [ testGroup "inlines"
             def
             "docx/inline_formatting.native"
             "docx/golden/inline_formatting.docx"
+          , docxTest
+            "SVG image DPI"
+            def{writerDpi=192} -- for HiDPI screens
+            "docx/img.native"
+            "docx/golden/img.docx"
           , docxTest
             "hyperlinks"
             def

test/docx/golden/img.docx

@@ -0,0 +1,41 @@
+[ Figure
+    ( "" , [] , [] )
+    (Caption Nothing [ Plain [ Str "5in" ] ])
+    [ Plain
+        [ Image
+            ( "" , [] , [ ( "width" , "5in" ) ] )
+            [ Str "5in" ]
+            ( "command/SVG_logo.svg" , "" )
+        ]
+    ]
+, Figure
+    ( "" , [] , [] )
+    (Caption Nothing [ Plain [ Str "5in" ] ])
+    [ Plain
+        [ Image
+            ( "" , [] , [ ( "width" , "5in" ) ] )
+            [ Str "5in" ]
+            ( "command/SVG_logo.svg" , "" )
+        ]
+    ]
+, Figure
+    ( "" , [] , [] )
+    (Caption Nothing [ Plain [ Str "80%" ] ])
+    [ Plain
+        [ Image
+            ( "" , [] , [ ( "width" , "80%" ) ] )
+            [ Str "5in" ]
+            ( "command/SVG_logo.svg" , "" )
+        ]
+    ]
+, Figure
+    ( "" , [] , [] )
+    (Caption Nothing [ Plain [ Str "default" ] ])
+    [ Plain
+        [ Image
+            ( "" , [] , [] )
+            [ Str "5in" ]
+            ( "command/SVG_logo.svg" , "" )
+        ]
+    ]
+]