From 0710c19c674798cce95126126c9cd33b3590e703 Mon Sep 17 00:00:00 2001
From: David Gohel <david.gohel@ardata.fr>
Date: Sun, 4 Feb 2024 13:44:55 +0100
Subject: [PATCH] tests: test HTML images

---
 tests/testthat/test-images.R | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/tests/testthat/test-images.R b/tests/testthat/test-images.R
index 48242e42..10e1d744 100644
--- a/tests/testthat/test-images.R
+++ b/tests/testthat/test-images.R
@@ -4,6 +4,16 @@ svg_file <- file.path(R.home(component = "doc"), "html", "Rlogo.svg")
 ext_img <- external_img(img.file)
 ext_svg <- external_img(svg_file)
 
+test_that("add image in HTML", {
+  expect_match(
+    to_html(ext_svg),
+    "<img style=\"vertical-align:middle;width:36px;height:14px;\" src=\"data:image/svg\\+xml;base64,"
+  )
+  expect_match(
+    to_html(ext_img),
+    "<img style=\"vertical-align:middle;width:36px;height:14px;\" src=\"data:image/jpeg;base64,"
+  )
+})
 
 test_that("add image in docx", {
   x <- read_docx()