From 833ed753c64cfe0353f401eb5f6d34e7388c1298 Mon Sep 17 00:00:00 2001 From: Jim Porter Date: Sun, 23 Jun 2024 11:40:30 -0700 Subject: [PATCH] ; Don't run new 'shr-test/zoom-image' when built without image support * test/lisp/net/shr-tests.el (shr-test/zoom-image): Skip when 'image-types' is unbound. (cherry picked from commit 6619aec6bca6d682be9a995f417e65bb0849d593) --- test/lisp/net/shr-tests.el | 1 + 1 file changed, 1 insertion(+) diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el index b6552674b27..f9fdb5eb5d3 100644 --- a/test/lisp/net/shr-tests.el +++ b/test/lisp/net/shr-tests.el @@ -134,6 +134,7 @@ 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)) (let ((image (expand-file-name "data/image/blank-100x200.png" (getenv "EMACS_TEST_DIRECTORY")))) (dolist (alt '(nil "" "nothing to see here")) -- 2.39.2