Re: master a33ab7565e2: track-changes.el: Minor changes for version 1.0

Re: master a33ab7565e2: track-changes.el: Minor changes for version 1.0

[Michael Albinus]

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.