Re: master 370b216f086: New variable 'project-files-relative-names'

[Michael Albinus <michael.albinus@gmx.de>]

Dmitry Gutov <dgutov@yandex.ru> writes:

Hi Dmitry,

>     * test/lisp/progmodes/project-tests.el (project-find-regexp):
>     New test.

This fails in batch mode:

--8<---------------cut here---------------start------------->8---
# make -C test project-tests
Test project-find-regexp backtrace:
  write-region(nil nil "~/.emacs.d/projects" nil silent)
  project--write-project-list()
  project--remember-dir("/home/albinus/src/emacs/test/lisp/progmodes/p
  project-remember-project((transient . "/home/albinus/src/emacs/test/
  project-current(t)
  project-find-regexp("etc")
  (let* ((matches nil) (xref-search-program 'grep) (xref-show-xrefs-fu
  (let* ((directory (let* ((testfile (and t "/home/albinus/src/emacs/t
  #f(lambda () [cl-struct-project-tests--trivial-tags t] (let* ((fn-13
  #f(compiled-function () #<bytecode -0xab8edc4a3389ce5>)()
  handler-bind-1(#f(compiled-function () #<bytecode -0xab8edc4a3389ce5
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name project-find-regexp :documentation "C
  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 project-find-regexp condition:
    (file-missing "Opening output file" "No such file or directory"
		  "/nonexistent/.emacs.d/projects")
   FAILED  1/8  project-find-regexp (0.007078 sec) at lisp/progmodes/project-tests.el:166
--8<---------------cut here---------------end--------------->8---

Best regards, Michael.