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]>
jgm · Dec 27, 2023 · de96454 · de96454
1 parent 0892709
commit de96454
Show file tree

Hide file tree

Showing 3 changed files with 46 additions and 0 deletions.
diff --git a/test/Tests/Writers/Docx.hs b/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

diff --git a/test/docx/golden/img.docx b/test/docx/golden/img.docx
diff --git a/test/docx/img.native b/test/docx/img.native
@@ -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" , "" )
+        ]
+    ]
+]