From 230ecb1e273e3fec6400cfad76e9b13f648d9055 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ulrich=20M=C3=BCller?= Date: Fri, 21 Feb 2025 10:36:52 +0100 Subject: [PATCH] ; Skip shr-test/zoom-image test if png or libxml support is missing * test/lisp/net/shr-tests.el (shr-test/zoom-image): Skip if png images or libxml are not supported. (Bug#76464) --- test/lisp/net/shr-tests.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el index beb9bfe85a9..8d66684c96d 100644 --- a/test/lisp/net/shr-tests.el +++ b/test/lisp/net/shr-tests.el @@ -135,7 +135,9 @@ settings, then once more for each (OPTION . VALUE) pair.") (ert-deftest shr-test/zoom-image () "Test that `shr-zoom-image' properly replaces the original image." - (skip-unless (bound-and-true-p image-types)) + (skip-unless (and (bound-and-true-p image-types) + (image-type-available-p 'png) + (fboundp 'libxml-parse-html-region))) (let* ((image (expand-file-name "data/image/blank-100x200.png" (getenv "EMACS_TEST_DIRECTORY"))) (image-url (concat "file://" (if (string-prefix-p "/" image)