Subject: Re: bug#47255: 28.0.50; epg-tests fail on FreeBSD12

From: Stefan Kangas <[email-masked]>
Date: Thu, 21 Oct 2021 14:18:37 -0700

Michael Albinus <[email-masked]> writes:

> Hi,
>
> I'm testing Emacs on FreeBSD 12, in a virtual machine. epg-tests.el fail
> like this:

Did you ever look into this more?  I guess it will be very hard to debug
this unless you have access to an actual FreeBSD 12 machine.

> Running 7 tests (2021-03-06 10:12:17+0100, selector `(not (tag :unstable))')
> Test epg-decrypt-1 backtrace:
>   signal(epg-error ("Decryption failed" ""))
>   apply(signal (epg-error ("Decryption failed" "")))
>   (setq value-2 (apply fn-0 args-1))
>   (unwind-protect (setq value-2 (apply fn-0 args-1)) (setq form-descri
>   (if (unwind-protect (setq value-2 (apply fn-0 args-1)) (setq form-de
>   (let (form-description-4) (if (unwind-protect (setq value-2 (apply f
>   (let ((value-2 'ert-form-evaluation-aborted-3)) (let (form-descripti
>   (let* ((fn-0 #'equal) (args-1 (condition-case err (let ((signal-hook
>   (progn (set (make-local-variable 'epg-tests-context) context) (let (
>   (unwind-protect (progn (set (make-local-variable 'epg-tests-context)
>   (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
>   (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
>   (let ((epg-config (or (epg-tests-find-usable-gpg-configuration t nil
>   (unwind-protect (let ((epg-config (or (epg-tests-find-usable-gpg-con
>   (let* ((epg-tests-home-directory (make-temp-file "epg-tests-homedir"
>   (closure (t) nil (let* ((epg-tests-home-directory (make-temp-file "e
>   ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
>   ert-run-test(#s(ert-test :name epg-decrypt-1 :documentation nil :bod
>   ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-m
>   ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type
>   ert-run-tests-batch((not (tag :unstable)))
>   ert-run-tests-batch-and-exit((not (tag :unstable)))
>   eval((ert-run-tests-batch-and-exit '(not (tag :unstable))) t)
>   command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/epg-tests.el" "--eva
>   command-line()
>   normal-top-level()
> Test epg-decrypt-1 condition:
>     (epg-error "Decryption failed" "")
>    FAILED  1/7  epg-decrypt-1 (0.290287 sec)
>    passed  2/7  epg-import-1 (0.461930 sec)
> Test epg-roundtrip-1 backtrace:
>   signal(epg-error ("Encrypt failed" "Exit"))
>   epg-encrypt-string(#s(epg-context :protocol OpenPGP :program "/usr/l
>   (let ((cipher (epg-encrypt-string epg-tests-context "symmetric" nil)
>   (progn (set (make-local-variable 'epg-tests-context) context) (let (
>   (unwind-protect (progn (set (make-local-variable 'epg-tests-context)
>   (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
>   (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
>   (let ((epg-config (or (epg-tests-find-usable-gpg-configuration t nil
>   (unwind-protect (let ((epg-config (or (epg-tests-find-usable-gpg-con
>   (let* ((epg-tests-home-directory (make-temp-file "epg-tests-homedir"
>   (closure (t) nil (let* ((epg-tests-home-directory (make-temp-file "e
>   ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
>   ert-run-test(#s(ert-test :name epg-roundtrip-1 :documentation nil :b
>   ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-m
>   ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type
>   ert-run-tests-batch((not (tag :unstable)))
>   ert-run-tests-batch-and-exit((not (tag :unstable)))
>   eval((ert-run-tests-batch-and-exit '(not (tag :unstable))) t)
>   command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/epg-tests.el" "--eva
>   command-line()
>   normal-top-level()
> Test epg-roundtrip-1 condition:
>     (epg-error "Encrypt failed" "Exit")
>    FAILED  3/7  epg-roundtrip-1 (0.536395 sec)
>    passed  4/7  epg-roundtrip-2 (0.580619 sec)
>    passed  5/7  epg-sign-verify-1 (0.687877 sec)
>    passed  6/7  epg-sign-verify-2 (0.680832 sec)
>    passed  7/7  epg-sign-verify-3 (0.688315 sec)
>
> Ran 7 tests, 5 results as expected, 2 unexpected (2021-03-06 10:12:21+0100, 4.194446 sec)
>
> 2 unexpected results:
>    FAILED  epg-decrypt-1
>    FAILED  epg-roundtrip-1
>
>
> In GNU Emacs 28.0.50 (build 3, x86_64-unknown-freebsd12.2, GTK+ Version 3.24.24, cairo version 1.16.0)
>  of 2021-03-04 built on freebsd12
> Repository revision: f5e1fc371af7a4211ca7a40b5db0b7da00cb1d93
> Repository branch: master
> System Description: 12.2-RELEASE
>
> Configured features:
> ACL CAIRO DBUS FREETYPE GIF GLIB GNUTLS GSETTINGS HARFBUZZ JPEG JSON
> LCMS2 LIBOTF LIBXML2 M17N_FLT MODULES NOTIFY KQUEUE PDUMPER PNG RSVG
> SOUND THREADS TIFF TOOLKIT_SCROLL_BARS X11 XDBE XIM XPM GTK3 ZLIB
>
> Important settings:
>   locale-coding-system: utf-8
>
> Major mode: Lisp Interaction
>
> Minor modes in effect:
>   display-time-mode: t
>   shell-dirtrack-mode: t
>   icomplete-mode: t
>   show-paren-mode: t
>   tooltip-mode: t
>   global-eldoc-mode: t
>   eldoc-mode: t
>   electric-indent-mode: t
>   mouse-wheel-mode: t
>   menu-bar-mode: t
>   file-name-shadow-mode: t
>   global-font-lock-mode: t
>   font-lock-mode: t
>   blink-cursor-mode: t
>   auto-composition-mode: t
>   auto-encryption-mode: t
>   auto-compression-mode: t
>   column-number-mode: t
>   line-number-mode: t
>   transient-mark-mode: t
>
> Load-path shadows:
> /home/albinus/src/tramp/lisp/tramp-sshfs hides /home/albinus/src/emacs/lisp/net/tramp-sshfs
> /home/albinus/src/tramp/lisp/tramp-fuse hides /home/albinus/src/emacs/lisp/net/tramp-fuse
> /home/albinus/src/tramp/lisp/tramp-sh hides /home/albinus/src/emacs/lisp/net/tramp-sh
> /home/albinus/src/tramp/lisp/tramp-smb hides /home/albinus/src/emacs/lisp/net/tramp-smb
> /home/albinus/src/tramp/lisp/tramp hides /home/albinus/src/emacs/lisp/net/tramp
> /home/albinus/src/tramp/lisp/trampver hides /home/albinus/src/emacs/lisp/net/trampver
> /home/albinus/src/tramp/lisp/tramp-sudoedit hides /home/albinus/src/emacs/lisp/net/tramp-sudoedit
> /home/albinus/src/tramp/lisp/tramp-uu hides /home/albinus/src/emacs/lisp/net/tramp-uu
> /home/albinus/src/tramp/lisp/tramp-gvfs hides /home/albinus/src/emacs/lisp/net/tramp-gvfs
> /home/albinus/src/tramp/lisp/tramp-rclone hides /home/albinus/src/emacs/lisp/net/tramp-rclone
> /home/albinus/src/tramp/lisp/tramp-ftp hides /home/albinus/src/emacs/lisp/net/tramp-ftp
> /home/albinus/src/tramp/lisp/tramp-integration hides /home/albinus/src/emacs/lisp/net/tramp-integration
> /home/albinus/src/tramp/lisp/tramp-crypt hides /home/albinus/src/emacs/lisp/net/tramp-crypt
> /home/albinus/src/tramp/lisp/tramp-cmds hides /home/albinus/src/emacs/lisp/net/tramp-cmds
> /home/albinus/src/tramp/lisp/tramp-adb hides /home/albinus/src/emacs/lisp/net/tramp-adb
> /home/albinus/src/tramp/lisp/tramp-compat hides /home/albinus/src/emacs/lisp/net/tramp-compat
> /home/albinus/src/tramp/lisp/tramp-archive hides /home/albinus/src/emacs/lisp/net/tramp-archive
> /home/albinus/src/tramp/lisp/tramp-cache hides /home/albinus/src/emacs/lisp/net/tramp-cache
> ~/lisp/dbus hides /home/albinus/src/emacs/lisp/net/dbus
> /home/albinus/src/tramp/lisp/tramp-loaddefs hides /home/albinus/src/emacs/lisp/net/tramp-loaddefs
>
> Features:
> (shadow sort mail-extr warnings emacsbug message rmc puny rfc822 mml
> mml-sec epa derived epg epg-config gnus-util rmail rmail-loaddefs
> text-property-search mm-decode mm-bodies mm-encode mail-parse rfc2231
> mailabbrev gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums
> mm-util mail-prsvr mail-utils term/xterm xterm face-remap ob-shell ob
> ob-tangle ol org-src ob-ref ob-lob ob-table ob-exp ob-comint ob-core
> ob-eval org-keys org-compat advice org-macs vc vc-dispatcher cperl-mode
> rx package browse-url url url-proxy url-privacy url-expand url-methods
> url-history url-cookie url-domsuf url-util mailcap url-handlers
> url-parse url-vars time tramp-sh tramp tramp-loaddefs trampver
> tramp-integration files-x tramp-compat shell pcomplete comint ansi-color
> ring parse-time iso8601 time-date ls-lisp format-spec auth-source cl-seq
> eieio eieio-core cl-macs eieio-loaddefs cl-loaddefs cl-lib
> password-cache json subr-x map ido seq byte-opt gv bytecomp byte-compile
> cconv jka-compr icomplete paren dired dired-loaddefs disp-table
> iso-transl tooltip eldoc electric uniquify ediff-hook vc-hooks
> lisp-float-type mwheel term/x-win x-win term/common-win x-dnd tool-bar
> dnd fontset image regexp-opt fringe tabulated-list replace newcomment
> text-mode elisp-mode lisp-mode prog-mode register page tab-bar menu-bar
> rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock
> font-lock syntax facemenu font-core term/tty-colors frame minibuffer
> cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai
> tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian
> slovak czech european ethiopic indian cyrillic chinese composite
> charscript charprop case-table epa-hook jka-cmpr-hook help simple abbrev
> obarray cl-preloaded nadvice button loaddefs faces cus-face macroexp
> files window text-properties overlay sha1 md5 base64 format env
> code-pages mule custom widget hashtable-print-readable backquote threads
> dbusbind kqueue lcms2 dynamic-setting system-font-setting
> font-render-setting cairo move-toolbar gtk x-toolkit x multi-tty
> make-network-process emacs)
>
> Memory information:
> ((conses 16 97517 7255)
>  (symbols 48 11978 1)
>  (strings 32 36710 1389)
>  (string-bytes 1 1239477)
>  (vectors 16 18328)
>  (vector-slots 8 198446 5479)
>  (floats 8 64 525)
>  (intervals 56 222 0)
>  (buffers 992 12))