Package: emacs;
Reported by: Ulrich Müller <ulm <at> gentoo.org>
Date: Fri, 21 Feb 2025 08:10:02 UTC
Severity: normal
Fixed in version 30.1
Done: Ulrich Müller <ulm <at> gentoo.org>
Bug is archived. No further changes may be made.
To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 76462 in the body.
You can then email your comments to 76462 AT debbugs.gnu.org in the normal way.
Toggle the display of automated, internal messages from the tracker.
View this report as an mbox folder, status mbox, maintainer mbox
bug-gnu-emacs <at> gnu.org:bug#76462; Package emacs.
(Fri, 21 Feb 2025 08:10:02 GMT) Full text and rfc822 format available.Ulrich Müller <ulm <at> gentoo.org>:bug-gnu-emacs <at> gnu.org.
(Fri, 21 Feb 2025 08:10:02 GMT) Full text and rfc822 format available.Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):
From: Ulrich Müller <ulm <at> gentoo.org> To: bug-gnu-emacs <at> gnu.org Subject: 30.1; Test failure in image-type-from-file-name Date: Fri, 21 Feb 2025 09:08:55 +0100
In the 30.1-rc1 release candidate:
Running 20 tests (2025-02-21 09:01:22+0100, selector ‘(not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))’)
skipped 1/20 image--compute-map-and-original-map (0.000128 sec)
passed 2/20 image--set-property (0.000062 sec)
skipped 3/20 image-create-image-with-map (0.000067 sec)
passed 4/20 image-find-image (0.004656 sec)
Use +, -, r for further adjustments
Use +, -, r for further adjustments
Use +, -, r for further adjustments
Use +, -, r for further adjustments
Use +, -, r for further adjustments
Use +, -, r for further adjustments
Use +, -, r for further adjustments
passed 5/20 image-rotate (0.001020 sec)
skipped 6/20 image-supported-file-p/built-in (0.000077 sec)
passed 7/20 image-supported-file-p/optional (0.000045 sec)
passed 8/20 image-supported-file-p/unsupported-returns-nil (0.000055 sec)
passed 9/20 image-transform-map (0.000099 sec)
passed 10/20 image-type-from-file-header-test/gif (0.000509 sec)
passed 11/20 image-type-from-file-header-test/jpeg (0.000384 sec)
passed 12/20 image-type-from-file-header-test/pbm (0.000365 sec)
passed 13/20 image-type-from-file-header-test/png (0.000392 sec)
passed 14/20 image-type-from-file-header-test/svg (0.000667 sec)
passed 15/20 image-type-from-file-header-test/tiff (0.000523 sec)
passed 16/20 image-type-from-file-header-test/webp (0.000356 sec)
passed 17/20 image-type-from-file-header-test/xbm (0.000344 sec)
passed 18/20 image-type-from-file-header-test/xpm (0.000301 sec)
Test image-type-from-file-name backtrace:
signal(ert-test-failed (((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil)))
ert-fail(((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil))
#f(compiled-function () #<bytecode -0x1f8a069b36a7f962>)()
#f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>)()
handler-bind-1(#f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) (error quit) #f(compiled-function (err) #<bytecode -0x15981b21f9896b41>))
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name image-type-from-file-name :documentation nil :body #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :most-recent-result #s(ert-test-failed :messages "" :should-forms ((... :form ... :value t) (... :form ... :value nil)) :duration 9.7964e-05 :condition (ert-test-failed (... :form ... :value nil)) :backtrace (#s(backtrace-frame :evald t :fun signal :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args #0 :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun eval :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :expected-result-type :passed :tags nil :file-name "/tmp/portage/app-editors/emacs-30.1_rc1/work/emacs-30.1/test/lisp/image-tests.el") :result #s(ert-test-failed :messages "" :should-forms (((should ...) :form (eq jpeg jpeg) :value t) ((should ...) :form (eq imagemagick png) :value nil)) :duration 9.7964e-05 :condition (ert-test-failed ((should ...) :form (eq imagemagick png) :value nil)) :backtrace (#s(backtrace-frame :evald t :fun signal :args (ert-test-failed ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args (#f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) ... #f(compiled-function (err) #<bytecode -0x15981b21f9896b41>)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args #0 :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args (...) :flags nil :locals (... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args (... ... #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>)) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args (... #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>) nil) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun eval :args (... t) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args (...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :exit-continuation #f(compiled-function () #<bytecode 0x8d05c561024bc3>) :ert-debug-on-error nil))
ert-run-test(#s(ert-test :name image-type-from-file-name :documentation nil :body #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :most-recent-result #s(ert-test-failed :messages "" :should-forms (((should (eq (image-type-from-file-name "foo.jpg") 'jpeg)) :form (eq jpeg jpeg) :value t) ((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil)) :duration 9.7964e-05 :condition (ert-test-failed ((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil)) :backtrace (#s(backtrace-frame :evald t :fun signal :args (ert-test-failed ((... :form ... :value nil))) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args (((should ...) :form (eq imagemagick png) :value nil)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args (#f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) (error quit) #f(compiled-function (err) #<bytecode -0x15981b21f9896b41>)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args (#s(ert--test-execution-info :test #1 :result #2 :exit-continuation #f(compiled-function () #<bytecode 0x8d05c561024bc3>) :ert-debug-on-error nil)) :flags nil :locals ((ert--infos) (lexical-binding . t)) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args #0 :flags nil :locals ((ert--running-tests #1) (message-log-max . t) (ert--should-execution-observer . #f(compiled-function (form-description) #<bytecode -0x1ddeb65f144f4091>))) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args (#s(ert--stats :selector (not ...) :tests [... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... #1 ...] :test-map #<hash-table eql 20/20 0x10e5a8564d92 ...> :test-results [... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... #2 nil] :test-start-times [... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... nil] :test-end-times [... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... nil] :passed-expected 15 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 3 :start-time (26552 13010 6000 81000) :end-time nil :aborted-p nil :current-test #1 :next-redisplay 0.0) #1 #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>)) :flags nil :locals ((ert--current-run-stats . #s(ert--stats :selector ... :tests ... :test-map #<hash-table eql 20/20 0x10e5a8564d92 ...> :test-results ... :test-start-times ... :test-end-times ... :passed-expected 15 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 3 :start-time ... :end-time nil :aborted-p nil :current-test #1 :next-redisplay 0.0))) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args ((not (or ... ... ...)) #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>) nil) :flags nil :locals ((ert--current-run-stats . #s(ert--stats :selector ... :tests ... :test-map #<hash-table eql 20/20 0x10e5a8564d92 ...> :test-results ... :test-start-times ... :test-end-times ... :passed-expected 15 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 3 :start-time ... :end-time nil :aborted-p nil :current-test #1 :next-redisplay 0.0))) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args ((not (or ... ... ...))) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args ((not (or ... ... ...))) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun eval :args ((ert-run-tests-batch-and-exit '...) t) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args (("-L" ":." "-l" "ert" "--eval" "(setq treesit-extra-load-path '(\"/tmp/portage/app-editors/emacs-30.1_rc1/homedir/.emacs.d/tree-sitter\"))" "--eval" "(setq ert-batch-backtrace-right-margin nil)" "-l" "lisp/image-tests" "--eval" "(ert-run-tests-batch-and-exit (quote (not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))))")) :flags nil :locals ((command-line-args-left) (argi . "-eval")) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :expected-result-type :passed :tags nil :file-name "/tmp/portage/app-editors/emacs-30.1_rc1/work/emacs-30.1/test/lisp/image-tests.el"))
ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-map #<hash-table eql 20/20 0x10e5a8564d92 ...> :test-results ... :test-start-times ... :test-end-times ... :passed-expected 15 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 3 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name image-type-from-file-name :documentation nil :body #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/tmp/portage/app-editors/emacs-30.1_rc1/work/emacs-30.1/test/lisp/image-tests.el") #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>))
ert-run-tests((not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp))) #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>) nil)
ert-run-tests-batch((not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp))))
ert-run-tests-batch-and-exit((not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp))))
eval((ert-run-tests-batch-and-exit '(not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))) t)
command-line-1(("-L" ":." "-l" "ert" "--eval" "(setq treesit-extra-load-path '(\"/tmp/portage/app-editors/emacs-30.1_rc1/homedir/.emacs.d/tree-sitter\"))" "--eval" "(setq ert-batch-backtrace-right-margin nil)" "-l" "lisp/image-tests" "--eval" "(ert-run-tests-batch-and-exit (quote (not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))))"))
command-line()
normal-top-level()
Test image-type-from-file-name condition:
(ert-test-failed
((should (eq (image-type-from-file-name "foo.png") 'png)) :form
(eq imagemagick png) :value nil))
FAILED 19/20 image-type-from-file-name (0.000098 sec) at lisp/image-tests.el:90
passed 20/20 image-type/from-filename (0.004731 sec)
Ran 20 tests, 16 results as expected, 1 unexpected, 3 skipped (2025-02-21 09:01:22+0100, 0.137995 sec)
1 unexpected results:
FAILED image-type-from-file-name ((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil)
3 skipped results:
SKIPPED image--compute-map-and-original-map ((skip-unless (display-images-p)) :form (display-images-p) :value nil)
SKIPPED image-create-image-with-map ((skip-unless (display-images-p)) :form (display-images-p) :value nil)
SKIPPED image-supported-file-p/built-in ((skip-unless (display-images-p)) :form (display-images-p) :value nil)
In GNU Emacs 30.1 (build 1, x86_64-pc-linux-gnu, X toolkit) of
2025-02-21 built on urania
Windowing system distributor 'The X.Org Foundation', version 11.0.12101015
System Description: Gentoo Linux
Configured using:
'configure --prefix=/usr --build=x86_64-pc-linux-gnu
--host=x86_64-pc-linux-gnu --mandir=/usr/share/man
--infodir=/usr/share/info --datadir=/usr/share --sysconfdir=/etc
--localstatedir=/var/lib --datarootdir=/usr/share
--disable-silent-rules --docdir=/usr/share/doc/emacs-30.1_rc1
--htmldir=/usr/share/doc/emacs-30.1_rc1/html --libdir=/usr/lib64
--program-suffix=-emacs-30 --includedir=/usr/include/emacs-30
--infodir=/usr/share/info/emacs-30 --localstatedir=/var
--enable-locallisppath=/etc/emacs:/usr/share/emacs/site-lisp
--without-compress-install --without-hesiod --without-pop
--with-file-notification=inotify --with-pdumper --enable-acl
--disable-xattr --with-dbus --with-modules --with-gameuser=:gamestat
--with-libgmp --with-gpm --without-native-compilation
--without-kerberos --without-kerberos5 --with-lcms2 --with-xml2
--without-mailutils --without-selinux --without-sqlite3
--without-gnutls --without-libsystemd --without-threads
--without-tree-sitter --without-wide-int --with-sound=alsa
--without-zlib --with-x --without-pgtk --without-ns --without-gconf
--with-gsettings --without-toolkit-scroll-bars --without-xpm
--without-xft --without-cairo --without-libotf --without-m17n-flt
--with-x-toolkit=lucid --without-xaw3d --with-gif --with-jpeg
--without-png --without-rsvg --without-tiff --without-webp
--with-imagemagick --with-dumping=pdumper 'CFLAGS=-march=native -ggdb
-O2 -pipe -fno-fast-math -ffp-contract=off' CPPFLAGS= 'LDFLAGS=-Wl,-O1
-Wl,--as-needed -Wl,-z,pack-relative-relocs''
Configured features:
ACL DBUS GIF GLIB GMP GPM GSETTINGS IMAGEMAGICK JPEG LCMS2 LIBXML2
MODULES NOTIFY INOTIFY PDUMPER SECCOMP SOUND X11 XDBE XIM XINPUT2 LUCID
Important settings:
value of $LC_CTYPE: en_GB.UTF-8
value of $LC_TIME: en_GB.UTF-8
value of $LANG: POSIX
locale-coding-system: utf-8-unix
bug-gnu-emacs <at> gnu.org:bug#76462; Package emacs.
(Fri, 21 Feb 2025 08:25:02 GMT) Full text and rfc822 format available.Message #8 received at 76462 <at> debbugs.gnu.org (full text, mbox):
From: Eli Zaretskii <eliz <at> gnu.org> To: Ulrich Müller <ulm <at> gentoo.org> Cc: 76462 <at> debbugs.gnu.org Subject: Re: bug#76462: 30.1; Test failure in image-type-from-file-name Date: Fri, 21 Feb 2025 10:24:09 +0200
> From: Ulrich Müller <ulm <at> gentoo.org>
> Date: Fri, 21 Feb 2025 09:08:55 +0100
>
> In the 30.1-rc1 release candidate:
>
> Running 20 tests (2025-02-21 09:01:22+0100, selector ‘(not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))’)
> skipped 1/20 image--compute-map-and-original-map (0.000128 sec)
> passed 2/20 image--set-property (0.000062 sec)
> skipped 3/20 image-create-image-with-map (0.000067 sec)
> passed 4/20 image-find-image (0.004656 sec)
> Use +, -, r for further adjustments
> Use +, -, r for further adjustments
> Use +, -, r for further adjustments
> Use +, -, r for further adjustments
> Use +, -, r for further adjustments
> Use +, -, r for further adjustments
> Use +, -, r for further adjustments
> passed 5/20 image-rotate (0.001020 sec)
> skipped 6/20 image-supported-file-p/built-in (0.000077 sec)
> passed 7/20 image-supported-file-p/optional (0.000045 sec)
> passed 8/20 image-supported-file-p/unsupported-returns-nil (0.000055 sec)
> passed 9/20 image-transform-map (0.000099 sec)
> passed 10/20 image-type-from-file-header-test/gif (0.000509 sec)
> passed 11/20 image-type-from-file-header-test/jpeg (0.000384 sec)
> passed 12/20 image-type-from-file-header-test/pbm (0.000365 sec)
> passed 13/20 image-type-from-file-header-test/png (0.000392 sec)
> passed 14/20 image-type-from-file-header-test/svg (0.000667 sec)
> passed 15/20 image-type-from-file-header-test/tiff (0.000523 sec)
> passed 16/20 image-type-from-file-header-test/webp (0.000356 sec)
> passed 17/20 image-type-from-file-header-test/xbm (0.000344 sec)
> passed 18/20 image-type-from-file-header-test/xpm (0.000301 sec)
> Test image-type-from-file-name backtrace:
> signal(ert-test-failed (((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil)))
> ert-fail(((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil))
> #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>)()
> #f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>)()
> handler-bind-1(#f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) (error quit) #f(compiled-function (err) #<bytecode -0x15981b21f9896b41>))
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name image-type-from-file-name :documentation nil :body #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :most-recent-result #s(ert-test-failed :messages "" :should-forms ((... :form ... :value t) (... :form ... :value nil)) :duration 9.7964e-05 :condition (ert-test-failed (... :form ... :value nil)) :backtrace (#s(backtrace-frame :evald t :fun signal :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args #0 :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun eval :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :expected-result-type :passed :tags nil :file-name "/tmp/portage/app-editors/emacs-30.1_rc1/work/emacs-30.1/test/lisp/image-tests.el") :result #s(ert-test-failed :messages "" :should-forms (((should ...) :form (eq jpeg jpeg) :value t) ((should ...) :form (eq imagemagick png) :value nil)) :duration 9.7964e-05 :condition (ert-test-failed ((should ...) :form (eq imagemagick png) :value nil)) :backtrace (#s(backtrace-frame :evald t :fun signal :args (ert-test-failed ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args (#f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) ... #f(compiled-function (err) #<bytecode -0x15981b21f9896b41>)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args #0 :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args (...) :flags nil :locals (... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args (... ... #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>)) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args (... #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>) nil) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun eval :args (... t) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args (...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :exit-continuation #f(compiled-function () #<bytecode 0x8d05c561024bc3>) :ert-debug-on-error nil))
> ert-run-test(#s(ert-test :name image-type-from-file-name :documentation nil :body #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :most-recent-result #s(ert-test-failed :messages "" :should-forms (((should (eq (image-type-from-file-name "foo.jpg") 'jpeg)) :form (eq jpeg jpeg) :value t) ((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil)) :duration 9.7964e-05 :condition (ert-test-failed ((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil)) :backtrace (#s(backtrace-frame :evald t :fun signal :args (ert-test-failed ((... :form ... :value nil))) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args (((should ...) :form (eq imagemagick png) :value nil)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args (#f(compiled-function () #<bytecode -0xb605d7d75e2ab7c>) (error quit) #f(compiled-function (err) #<bytecode -0x15981b21f9896b41>)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args (#s(ert--test-execution-info :test #1 :result #2 :exit-continuation #f(compiled-function () #<bytecode 0x8d05c561024bc3>) :ert-debug-on-error nil)) :flags nil :locals ((ert--infos) (lexical-binding . t)) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args #0 :flags nil :locals ((ert--running-tests #1) (message-log-max . t) (ert--should-execution-observer . #f(compiled-function (form-description) #<bytecode -0x1ddeb65f144f4091>))) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args (#s(ert--stats :selector (not ...) :tests [... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... #1 ...] :test-map #<hash-table eql 20/20 0x10e5a8564d92 ...> :test-results [... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... #2 nil] :test-start-times [... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... nil] :test-end-times [... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... nil] :passed-expected 15 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 3 :start-time (26552 13010 6000 81000) :end-time nil :aborted-p nil :current-test #1 :next-redisplay 0.0) #1 #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>)) :flags nil :locals ((ert--current-run-stats . #s(ert--stats :selector ... :tests ... :test-map #<hash-table eql 20/20 0x10e5a8564d92 ...> :test-results ... :test-start-times ... :test-end-times ... :passed-expected 15 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 3 :start-time ... :end-time nil :aborted-p nil :current-test #1 :next-redisplay 0.0))) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args ((not (or ... ... ...)) #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>) nil) :flags nil :locals ((ert--current-run-stats . #s(ert--stats :selector ... :tests ... :test-map #<hash-table eql 20/20 0x10e5a8564d92 ...> :test-results ... :test-start-times ... :test-end-times ... :passed-expected 15 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 3 :start-time ... :end-time nil :aborted-p nil :current-test #1 :next-redisplay 0.0))) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args ((not (or ... ... ...))) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args ((not (or ... ... ...))) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun eval :args ((ert-run-tests-batch-and-exit '...) t) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args (("-L" ":." "-l" "ert" "--eval" "(setq treesit-extra-load-path '(\"/tmp/portage/app-editors/emacs-30.1_rc1/homedir/.emacs.d/tree-sitter\"))" "--eval" "(setq ert-batch-backtrace-right-margin nil)" "-l" "lisp/image-tests" "--eval" "(ert-run-tests-batch-and-exit (quote (not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))))")) :flags nil :locals ((command-line-args-left) (argi . "-eval")) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :expected-result-type :passed :tags nil :file-name "/tmp/portage/app-editors/emacs-30.1_rc1/work/emacs-30.1/test/lisp/image-tests.el"))
> ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-map #<hash-table eql 20/20 0x10e5a8564d92 ...> :test-results ... :test-start-times ... :test-end-times ... :passed-expected 15 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 3 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name image-type-from-file-name :documentation nil :body #f(compiled-function () #<bytecode -0x1f8a069b36a7f962>) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/tmp/portage/app-editors/emacs-30.1_rc1/work/emacs-30.1/test/lisp/image-tests.el") #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>))
> ert-run-tests((not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp))) #f(compiled-function (event-type &rest event-args) #<bytecode -0x1c8e915c69123548>) nil)
> ert-run-tests-batch((not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp))))
> ert-run-tests-batch-and-exit((not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp))))
> eval((ert-run-tests-batch-and-exit '(not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))) t)
> command-line-1(("-L" ":." "-l" "ert" "--eval" "(setq treesit-extra-load-path '(\"/tmp/portage/app-editors/emacs-30.1_rc1/homedir/.emacs.d/tree-sitter\"))" "--eval" "(setq ert-batch-backtrace-right-margin nil)" "-l" "lisp/image-tests" "--eval" "(ert-run-tests-batch-and-exit (quote (not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))))"))
> command-line()
> normal-top-level()
>
> Test image-type-from-file-name condition:
> (ert-test-failed
> ((should (eq (image-type-from-file-name "foo.png") 'png)) :form
> (eq imagemagick png) :value nil))
> FAILED 19/20 image-type-from-file-name (0.000098 sec) at lisp/image-tests.el:90
> passed 20/20 image-type/from-filename (0.004731 sec)
>
> Ran 20 tests, 16 results as expected, 1 unexpected, 3 skipped (2025-02-21 09:01:22+0100, 0.137995 sec)
>
> 1 unexpected results:
> FAILED image-type-from-file-name ((should (eq (image-type-from-file-name "foo.png") 'png)) :form (eq imagemagick png) :value nil)
>
> 3 skipped results:
> SKIPPED image--compute-map-and-original-map ((skip-unless (display-images-p)) :form (display-images-p) :value nil)
> SKIPPED image-create-image-with-map ((skip-unless (display-images-p)) :form (display-images-p) :value nil)
> SKIPPED image-supported-file-p/built-in ((skip-unless (display-images-p)) :form (display-images-p) :value nil)
I cannot reproduce this, FWIW.
bug-gnu-emacs <at> gnu.org:bug#76462; Package emacs.
(Fri, 21 Feb 2025 09:09:02 GMT) Full text and rfc822 format available.Message #11 received at 76462 <at> debbugs.gnu.org (full text, mbox):
From: Ulrich Müller <ulm <at> gentoo.org> To: Eli Zaretskii <eliz <at> gnu.org> Cc: Ulrich Müller <ulm <at> gentoo.org>, 76462 <at> debbugs.gnu.org Subject: Re: bug#76462: 30.1; Test failure in image-type-from-file-name Date: Fri, 21 Feb 2025 10:08:24 +0100
[Message part 1 (text/plain, inline)]
>>>>> On Fri, 21 Feb 2025, Eli Zaretskii wrote: > I cannot reproduce this, FWIW. AFAICS this is triggered by either the --without-jpeg or --without-png configure option. Attached patch fixes the problem for me.
[0001-Skip-image-type-test-if-support-is-missing.patch (text/plain, inline)]
From aba28057375113ea15710ac4a38a1be7dc37b9b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ulrich=20M=C3=BCller?= <ulm <at> gentoo.org>
Date: Fri, 21 Feb 2025 09:58:16 +0100
Subject: [PATCH] ; Skip image type test if support is missing
* test/lisp/image-tests.el (image-type-from-file-name): Skip if
image types are not available. (Bug#76462)
---
test/lisp/image-tests.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/test/lisp/image-tests.el b/test/lisp/image-tests.el
index 69557c83657..03d20758052 100644
--- a/test/lisp/image-tests.el
+++ b/test/lisp/image-tests.el
@@ -88,6 +88,9 @@ image-supported-file-p/unsupported-returns-nil
(should-not (image-supported-file-p "foo.some-unsupported-format")))
(ert-deftest image-type-from-file-name ()
+ (skip-unless (and (image-type-available-p 'jpeg)
+ (image-type-available-p 'png)
+ (image-type-available-p 'webp)))
(with-suppressed-warnings ((obsolete image-type-from-file-name))
(should (eq (image-type-from-file-name "foo.jpg") 'jpeg))
(should (eq (image-type-from-file-name "foo.png") 'png))
--
2.48.1
bug-gnu-emacs <at> gnu.org:bug#76462; Package emacs.
(Fri, 21 Feb 2025 11:50:03 GMT) Full text and rfc822 format available.Message #14 received at 76462 <at> debbugs.gnu.org (full text, mbox):
From: Eli Zaretskii <eliz <at> gnu.org> To: Ulrich Müller <ulm <at> gentoo.org> Cc: 76462 <at> debbugs.gnu.org Subject: Re: bug#76462: 30.1; Test failure in image-type-from-file-name Date: Fri, 21 Feb 2025 13:49:11 +0200
> From: Ulrich Müller <ulm <at> gentoo.org> > Cc: Ulrich Müller <ulm <at> gentoo.org>, 76462 <at> debbugs.gnu.org > Date: Fri, 21 Feb 2025 10:08:24 +0100 > > >>>>> On Fri, 21 Feb 2025, Eli Zaretskii wrote: > > > I cannot reproduce this, FWIW. > > AFAICS this is triggered by either the --without-jpeg or --without-png > configure option. > > Attached patch fixes the problem for me. Thanks, please install on the emacs-30 branch.
Ulrich Müller <ulm <at> gentoo.org>
to control <at> debbugs.gnu.org.
(Fri, 21 Feb 2025 12:02:02 GMT) Full text and rfc822 format available.Debbugs Internal Request <help-debbugs <at> gnu.org>
to internal_control <at> debbugs.gnu.org.
(Sat, 22 Mar 2025 11:24:14 GMT) Full text and rfc822 format available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.