File emacs-30.2-fix-zoom.patch of Package emacs

--- a/test/lisp/net/shr-tests.el	2025-02-22 10:09:44.000000000 +0100
+++ b/test/lisp/net/shr-tests.el	2025-06-10 11:36:26.574776968 +0200
@@ -137,7 +137,8 @@ settings, then once more for each (OPTIO
   "Test that `shr-zoom-image' properly replaces the original image."
   (skip-unless (and (bound-and-true-p image-types)
                     (image-type-available-p 'png)
-                    (fboundp 'libxml-parse-html-region)))
+                    (fboundp 'libxml-parse-html-region)
+                    (not (getenv "ZOOM_IMAGE_TESTS"))))
   (let* ((image (expand-file-name "data/image/blank-100x200.png"
                                   (getenv "EMACS_TEST_DIRECTORY")))
          (image-url (concat "file://" (if (string-prefix-p "/" image)