From: Michael Albinus <michael.albinus@gmx.de>
To: emacs-devel@gnu.org
Cc: Stefan Monnier <monnier@iro.umontreal.ca>
Subject: Re: master a33ab7565e2: track-changes.el: Minor changes for version 1.0
Date: Wed, 17 Apr 2024 11:13:23 +0200 [thread overview]
Message-ID: <8734rkwdvw.fsf@gmx.de> (raw)
In-Reply-To: <20240417015720.DCD3DC1FB4C@vcs2.savannah.gnu.org> (Stefan Monnier via Mailing list for Emacs changes's message of "Tue, 16 Apr 2024 21:57:15 -0400 (EDT)")
Hi Stefan,
the test fails. Don't know whether since this commit, or earlier.
--8<---------------cut here---------------start------------->8---
# make -C test track-changes-tests
Test track-changes-tests--random backtrace:
track-changes--recover-from-error()
track-changes--after(132 140 8)
run-hook-with-args(track-changes--after 132 140 8)
(if after (run-hook-with-args 'after-change-functions beg end (- end
(let* ((beg (+ (point-min) (random (1+ (buffer-size))))) (end (min (
(let nil (let* ((beg (+ (point-min) (random (1+ (buffer-size))))) (e
(cond ((eql val 0) (let nil (track-changes-tests--message "Manual sy
(let* ((pcase-0 #'(lambda nil (goto-char (+ (point-min) (random ...)
(let ((_ counter)) (let* ((pcase-0 #'(lambda nil (goto-char (+ ... .
(while (< counter upper-bound) (let ((_ counter)) (let* ((pcase-0 #'
(let ((upper-bound 1000) (counter 0)) (while (< counter upper-bound)
(let* ((buf1 (generate-new-buffer " *tc1*")) (buf2 (generate-new-buf
(progn (random track-changes-tests--random-seed) (let ((upper-bound
(unwind-protect (progn (random track-changes-tests--random-seed) (le
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
(closure (t) nil (let ((temp-buffer (generate-new-buffer " *temp*" t
#f(compiled-function () #<bytecode 0x2f94571b0cda541>)()
handler-bind-1(#f(compiled-function () #<bytecode 0x2f94571b0cda541>
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name track-changes-tests--random :document
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" "--eval" "(setq treesit-extra-l
command-line()
normal-top-level()
Test track-changes-tests--random condition:
(args-out-of-range [] -20 nil)
FAILED 1/1 track-changes-tests--random (0.004535 sec) at lisp/emacs-lisp/track-changes-tests.el:44
--8<---------------cut here---------------end--------------->8---
Best regards, Michael.
parent reply other threads:[~2024-04-17 9:13 UTC|newest]
Thread overview: expand[flat|nested] mbox.gz Atom feed
[parent not found: <20240417015720.DCD3DC1FB4C@vcs2.savannah.gnu.org>]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=8734rkwdvw.fsf@gmx.de \
--to=michael.albinus@gmx.de \
--cc=emacs-devel@gnu.org \
--cc=monnier@iro.umontreal.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).