Re: master updated (a1b24ebc83e -> 44d1687f1f6)

[Michael Albinus]

Jim Porter <jporterbugs@gmail.com> writes:

Hi Jim,

> jporter pushed a change to branch master.
>
>       from  a1b24ebc83e ; Stylistic adjustments to sfnt.c
>        new  ae9045a8bd8 Allow defining custom providers for more "thingatpt" 
> functions
>        new  44d1687f1f6 Tell direction in prompts for 
> '(previous|next)-matching-history-element'
>
>
> Summary of changes:
>  etc/NEWS                        | 25 ++++++++++---
>  lisp/net/eww.el                 | 21 +++++++++--
>  lisp/progmodes/bug-reference.el | 26 +++++++++++--
>  lisp/simple.el                  | 33 +++++++++-------
>  lisp/thingatpt.el               | 83 
> ++++++++++++++++++++++++++++++++++++++---
>  test/lisp/thingatpt-tests.el    | 59 +++++++++++++++++++++++++++++
>  6 files changed, 217 insertions(+), 30 deletions(-)

There's an error now.

--8<---------------cut here---------------start------------->8---
# make -C test bug-reference-tests
make: Entering directory '/home/albinus/src/emacs/test'
make[1]: Entering directory '/home/albinus/src/emacs/test'
  GEN      lisp/progmodes/bug-reference-tests.log
Running 4 tests (2024-05-20 12:10:25+0200, selector `(not (tag :unstable))')
   passed  1/4  test-gitea-entry (0.000133 sec)
   passed  2/4  test-github-entry (0.000088 sec)
   passed  3/4  test-gitlab-entry (0.000089 sec)
Test test-thing-at-point backtrace:
  signal(ert-test-failed (((should (equal (thing-at-point 'url) "https
  ert-fail(((should (equal (thing-at-point 'url) "https://debbugs.gnu.
  (if (unwind-protect (setq value-92 (apply fn-90 args-91)) (setq form
  (let (form-description-94) (if (unwind-protect (setq value-92 (apply
  (let ((value-92 'ert-form-evaluation-aborted-93)) (let (form-descrip
  (let* ((fn-90 #'equal) (args-91 (condition-case err (list (thing-at-
  #f(lambda () [t] (set (make-local-variable 'bug-reference-url-format
  ert--call-with-test-buffer("thingatpt" #f(lambda () [t] (set (make-l
  #f(lambda () [t] (ert--call-with-test-buffer "thingatpt" #'(lambda n
  #f(compiled-function () #<bytecode 0x127ec815d8e3f7db>)()
  handler-bind-1(#f(compiled-function () #<bytecode 0x127ec815d8e3f7db
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name test-thing-at-point :documentation "E
  ert-run-or-rerun-test(#s(ert--stats :selector (not ...) :tests [...
  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 test-thing-at-point condition:
    Buffer: *Test buffer (test-thing-at-point): thingatpt*
    (ert-test-failed
     ((should (equal (thing-at-point ...) "https://debbugs.gnu.org/1234";))
      :form (equal nil "https://debbugs.gnu.org/1234";) :value nil
      :explanation (different-types nil "https://debbugs.gnu.org/1234";)))
   FAILED  4/4  test-thing-at-point (0.000706 sec) at 
lisp/progmodes/bug-reference-tests.el:129

Ran 4 tests, 3 results as expected, 1 unexpected (2024-05-20 12:10:25+0200, 
0.370867 sec)

1 unexpected results:
   FAILED  test-thing-at-point
--8<---------------cut here---------------end--------------->8---