GNU bug report logs - #71235
Failing test on macOS: tramp-test17-dired-with-wildcards

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 71235 in the body.
You can then email your comments to 71235 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: Failing test on macOS: tramp-test17-dired-with-wildcards
Date: Mon, 27 May 2024 14:32:54 -0700

I see one tramp test fail on macOS 14.3.1.  Details below:

Ran 98 tests, 82 results as expected, 1 unexpected, 15 skipped
(2024-05-27 23:27:48+0200, 89.934240 sec)

1 unexpected results:
   FAILED  tramp-test17-dired-with-wildcards

Test tramp-test17-dired-with-wildcards backtrace:
  signal(user-error ("tramp-test*/*: No files matching wildcard"))
  user-error("%s: No files matching wildcard" "tramp-test*/*")
  dired-insert-directory(#("/mock:My-MacBook-Pro.local:/var/folders/28/y4qn6tl11_126568wmx_6kpr0000gn/T/tramp-test*/*"
6 31 (tramp-default t)) "-al" nil t t)
  dired-readin-insert()
  #f(compiled-function () #<bytecode 0x961a9cabc66572>)()
  combine-change-calls-1(1 1 #f(compiled-function () #<bytecode
0x961a9cabc66572>))
  dired-readin()
  dired-internal-noselect(#("/mock:My-MacBook-Pro.local:~/tramp-test*/*"
6 31 (tramp-default t)) nil)
  dired-noselect(#("/mock:My-MacBook-Pro.local:/var/folders/28/y4qn6tl11_126568wmx_6kpr0000gn/T/tramp-test*/*"
6 31 (tramp-default t)))
  (setq buffer (dired-noselect (expand-file-name "tramp-test*/*"
ert-remote-temporary-file-directory)))
  (set-buffer (setq buffer (dired-noselect (expand-file-name
"tramp-test*/*" ert-remote-temporary-file-directory))))
  (save-current-buffer (set-buffer (setq buffer (dired-noselect
(expand-file-name "tramp-test*/*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4565 #'search-forward-regexp) (args-4566 (condition-case err
(list (regexp-quote (file-relative-name tmp-name3
ert-remote-temporary-file-directory))) (error (progn (setq fn-4565
...) (list ... ...)))))) (let ((value-4567
'ert-form-evaluation-aborted-4568)) (let (form-description-4569) (if
(unwind-protect (setq value-4567 (apply fn-4565 args-4566)) (setq
form-description-4569 (nconc ... ... ... ...))
(ert--signal-should-execution form-description-4569)) nil (ert-fail
form-description-4569))) value-4567)) (goto-char (point-min)) (let*
((fn-4570 #'search-forward-regexp) (args-4571 (condition-case err
(list (regexp-quote (file-relative-name tmp-name4
ert-remote-temporary-file-directory))) (error (progn (setq fn-4570
...) (list ... ...)))))) (let ((value-4572
'ert-form-evaluation-aborted-4573)) (let (form-description-4574) (if
(unwind-protect (setq value-4572 (apply fn-4570 args-4571)) (setq
form-description-4574 (nconc ... ... ... ...))
(ert--signal-should-execution form-description-4574)) nil (ert-fail
form-description-4574))) value-4572)))
  (progn (make-directory tmp-name1) (write-region "foo" nil tmp-name3)
(let* ((fn-4535 #'file-directory-p) (args-4536 (condition-case err
(list tmp-name1) (error (progn ... ...))))) (let ((value-4537
'ert-form-evaluation-aborted-4538)) (let (form-description-4539) (if
(unwind-protect (setq value-4537 ...) (setq form-description-4539 ...)
(ert--signal-should-execution form-description-4539)) nil (ert-fail
form-description-4539))) value-4537)) (let* ((fn-4540 #'file-exists-p)
(args-4541 (condition-case err (list tmp-name3) (error (progn ...
...))))) (let ((value-4542 'ert-form-evaluation-aborted-4543)) (let
(form-description-4544) (if (unwind-protect (setq value-4542 ...)
(setq form-description-4544 ...) (ert--signal-should-execution
form-description-4544)) nil (ert-fail form-description-4544)))
value-4542)) (make-directory tmp-name2) (write-region "foo" nil
tmp-name4) (let* ((fn-4545 #'file-directory-p) (args-4546
(condition-case err (list tmp-name2) (error (progn ... ...))))) (let
((value-4547 'ert-form-evaluation-aborted-4548)) (let
(form-description-4549) (if (unwind-protect (setq value-4547 ...)
(setq form-description-4549 ...) (ert--signal-should-execution
form-description-4549)) nil (ert-fail form-description-4549)))
value-4547)) (let* ((fn-4550 #'file-exists-p) (args-4551
(condition-case err (list tmp-name4) (error (progn ... ...))))) (let
((value-4552 'ert-form-evaluation-aborted-4553)) (let
(form-description-4554) (if (unwind-protect (setq value-4552 ...)
(setq form-description-4554 ...) (ert--signal-should-execution
form-description-4554)) nil (ert-fail form-description-4554)))
value-4552)) (save-current-buffer (set-buffer (setq buffer
(dired-noselect (expand-file-name "tramp-test*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4555 #'search-forward-regexp) (args-4556 (condition-case err
(list ...) (error ...)))) (let ((value-4557
'ert-form-evaluation-aborted-4558)) (let (form-description-4559) (if
(unwind-protect ... ... ...) nil (ert-fail form-description-4559)))
value-4557)) (goto-char (point-min)) (let* ((fn-4560
#'search-forward-regexp) (args-4561 (condition-case err (list ...)
(error ...)))) (let ((value-4562 'ert-form-evaluation-aborted-4563))
(let (form-description-4564) (if (unwind-protect ... ... ...) nil
(ert-fail form-description-4564))) value-4562))) (kill-buffer buffer)
(save-current-buffer (set-buffer (setq buffer (dired-noselect
(expand-file-name "tramp-test*/*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4565 #'search-forward-regexp) (args-4566 (condition-case err
(list ...) (error ...)))) (let ((value-4567
'ert-form-evaluation-aborted-4568)) (let (form-description-4569) (if
(unwind-protect ... ... ...) nil (ert-fail form-description-4569)))
value-4567)) (goto-char (point-min)) (let* ((fn-4570
#'search-forward-regexp) (args-4571 (condition-case err (list ...)
(error ...)))) (let ((value-4572 'ert-form-evaluation-aborted-4573))
(let (form-description-4574) (if (unwind-protect ... ... ...) nil
(ert-fail form-description-4574))) value-4572))) (kill-buffer buffer)
(setq tmp-name3 (expand-file-name "*?" tmp-name1)) (setq tmp-name4
(expand-file-name "[a-z0-9]" tmp-name2)) (write-region "foo" nil
tmp-name3) (let* ((fn-4575 #'file-exists-p) (args-4576 (condition-case
err (list tmp-name3) (error (progn ... ...))))) (let ((value-4577
'ert-form-evaluation-aborted-4578)) (let (form-description-4579) (if
(unwind-protect (setq value-4577 ...) (setq form-description-4579 ...)
(ert--signal-should-execution form-description-4579)) nil (ert-fail
form-description-4579))) value-4577)) (write-region "foo" nil
tmp-name4) (let* ((fn-4580 #'file-exists-p) (args-4581 (condition-case
err (list tmp-name4) (error (progn ... ...))))) (let ((value-4582
'ert-form-evaluation-aborted-4583)) (let (form-description-4584) (if
(unwind-protect (setq value-4582 ...) (setq form-description-4584 ...)
(ert--signal-should-execution form-description-4584)) nil (ert-fail
form-description-4584))) value-4582)) (save-current-buffer (set-buffer
(setq buffer (dired-noselect (expand-file-name "tramp-test*/*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4585 #'search-forward-regexp) (args-4586 (condition-case err
(list ...) (error ...)))) (let ((value-4587
'ert-form-evaluation-aborted-4588)) (let (form-description-4589) (if
(unwind-protect ... ... ...) nil (ert-fail form-description-4589)))
value-4587)) (goto-char (point-min)) (let* ((fn-4590
#'search-forward-regexp) (args-4591 (condition-case err (list ...)
(error ...)))) (let ((value-4592 'ert-form-evaluation-aborted-4593))
(let (form-description-4594) (if (unwind-protect ... ... ...) nil
(ert-fail form-description-4594))) value-4592))) (kill-buffer buffer))
  (unwind-protect (progn (make-directory tmp-name1) (write-region
"foo" nil tmp-name3) (let* ((fn-4535 #'file-directory-p) (args-4536
(condition-case err (list tmp-name1) (error ...)))) (let ((value-4537
'ert-form-evaluation-aborted-4538)) (let (form-description-4539) (if
(unwind-protect ... ... ...) nil (ert-fail form-description-4539)))
value-4537)) (let* ((fn-4540 #'file-exists-p) (args-4541
(condition-case err (list tmp-name3) (error ...)))) (let ((value-4542
'ert-form-evaluation-aborted-4543)) (let (form-description-4544) (if
(unwind-protect ... ... ...) nil (ert-fail form-description-4544)))
value-4542)) (make-directory tmp-name2) (write-region "foo" nil
tmp-name4) (let* ((fn-4545 #'file-directory-p) (args-4546
(condition-case err (list tmp-name2) (error ...)))) (let ((value-4547
'ert-form-evaluation-aborted-4548)) (let (form-description-4549) (if
(unwind-protect ... ... ...) nil (ert-fail form-description-4549)))
value-4547)) (let* ((fn-4550 #'file-exists-p) (args-4551
(condition-case err (list tmp-name4) (error ...)))) (let ((value-4552
'ert-form-evaluation-aborted-4553)) (let (form-description-4554) (if
(unwind-protect ... ... ...) nil (ert-fail form-description-4554)))
value-4552)) (save-current-buffer (set-buffer (setq buffer
(dired-noselect (expand-file-name "tramp-test*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4555 #'search-forward-regexp) (args-4556 (condition-case err ...
...))) (let ((value-4557 ...)) (let (form-description-4559) (if ...
nil ...)) value-4557)) (goto-char (point-min)) (let* ((fn-4560
#'search-forward-regexp) (args-4561 (condition-case err ... ...)))
(let ((value-4562 ...)) (let (form-description-4564) (if ... nil ...))
value-4562))) (kill-buffer buffer) (save-current-buffer (set-buffer
(setq buffer (dired-noselect (expand-file-name "tramp-test*/*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4565 #'search-forward-regexp) (args-4566 (condition-case err ...
...))) (let ((value-4567 ...)) (let (form-description-4569) (if ...
nil ...)) value-4567)) (goto-char (point-min)) (let* ((fn-4570
#'search-forward-regexp) (args-4571 (condition-case err ... ...)))
(let ((value-4572 ...)) (let (form-description-4574) (if ... nil ...))
value-4572))) (kill-buffer buffer) (setq tmp-name3 (expand-file-name
"*?" tmp-name1)) (setq tmp-name4 (expand-file-name "[a-z0-9]"
tmp-name2)) (write-region "foo" nil tmp-name3) (let* ((fn-4575
#'file-exists-p) (args-4576 (condition-case err (list tmp-name3)
(error ...)))) (let ((value-4577 'ert-form-evaluation-aborted-4578))
(let (form-description-4579) (if (unwind-protect ... ... ...) nil
(ert-fail form-description-4579))) value-4577)) (write-region "foo"
nil tmp-name4) (let* ((fn-4580 #'file-exists-p) (args-4581
(condition-case err (list tmp-name4) (error ...)))) (let ((value-4582
'ert-form-evaluation-aborted-4583)) (let (form-description-4584) (if
(unwind-protect ... ... ...) nil (ert-fail form-description-4584)))
value-4582)) (save-current-buffer (set-buffer (setq buffer
(dired-noselect (expand-file-name "tramp-test*/*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4585 #'search-forward-regexp) (args-4586 (condition-case err ...
...))) (let ((value-4587 ...)) (let (form-description-4589) (if ...
nil ...)) value-4587)) (goto-char (point-min)) (let* ((fn-4590
#'search-forward-regexp) (args-4591 (condition-case err ... ...)))
(let ((value-4592 ...)) (let (form-description-4594) (if ... nil ...))
value-4592))) (kill-buffer buffer)) (condition-case nil (progn
(kill-buffer buffer)) (error nil)) (condition-case nil (progn
(delete-directory tmp-name1 'recursive)) (error nil)) (condition-case
nil (progn (delete-directory tmp-name2 'recursive)) (error nil)))
  (let* ((tmp-name1 (expand-file-name (tramp--test-make-temp-name nil
quoted))) (tmp-name2 (expand-file-name (tramp--test-make-temp-name nil
quoted))) (tmp-name3 (expand-file-name "foo" tmp-name1)) (tmp-name4
(expand-file-name "bar" tmp-name2))
(ert-remote-temporary-file-directory (funcall (if quoted
#'file-name-quote #'identity) ert-remote-temporary-file-directory))
buffer) (unwind-protect (progn (make-directory tmp-name1)
(write-region "foo" nil tmp-name3) (let* ((fn-4535 #'file-directory-p)
(args-4536 (condition-case err (list tmp-name1) (error ...)))) (let
((value-4537 'ert-form-evaluation-aborted-4538)) (let
(form-description-4539) (if (unwind-protect ... ... ...) nil (ert-fail
form-description-4539))) value-4537)) (let* ((fn-4540 #'file-exists-p)
(args-4541 (condition-case err (list tmp-name3) (error ...)))) (let
((value-4542 'ert-form-evaluation-aborted-4543)) (let
(form-description-4544) (if (unwind-protect ... ... ...) nil (ert-fail
form-description-4544))) value-4542)) (make-directory tmp-name2)
(write-region "foo" nil tmp-name4) (let* ((fn-4545 #'file-directory-p)
(args-4546 (condition-case err (list tmp-name2) (error ...)))) (let
((value-4547 'ert-form-evaluation-aborted-4548)) (let
(form-description-4549) (if (unwind-protect ... ... ...) nil (ert-fail
form-description-4549))) value-4547)) (let* ((fn-4550 #'file-exists-p)
(args-4551 (condition-case err (list tmp-name4) (error ...)))) (let
((value-4552 'ert-form-evaluation-aborted-4553)) (let
(form-description-4554) (if (unwind-protect ... ... ...) nil (ert-fail
form-description-4554))) value-4552)) (save-current-buffer (set-buffer
(setq buffer (dired-noselect (expand-file-name "tramp-test*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4555 #'search-forward-regexp) (args-4556 (condition-case err ...
...))) (let ((value-4557 ...)) (let (form-description-4559) (if ...
nil ...)) value-4557)) (goto-char (point-min)) (let* ((fn-4560
#'search-forward-regexp) (args-4561 (condition-case err ... ...)))
(let ((value-4562 ...)) (let (form-description-4564) (if ... nil ...))
value-4562))) (kill-buffer buffer) (save-current-buffer (set-buffer
(setq buffer (dired-noselect (expand-file-name "tramp-test*/*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4565 #'search-forward-regexp) (args-4566 (condition-case err ...
...))) (let ((value-4567 ...)) (let (form-description-4569) (if ...
nil ...)) value-4567)) (goto-char (point-min)) (let* ((fn-4570
#'search-forward-regexp) (args-4571 (condition-case err ... ...)))
(let ((value-4572 ...)) (let (form-description-4574) (if ... nil ...))
value-4572))) (kill-buffer buffer) (setq tmp-name3 (expand-file-name
"*?" tmp-name1)) (setq tmp-name4 (expand-file-name "[a-z0-9]"
tmp-name2)) (write-region "foo" nil tmp-name3) (let* ((fn-4575
#'file-exists-p) (args-4576 (condition-case err (list tmp-name3)
(error ...)))) (let ((value-4577 'ert-form-evaluation-aborted-4578))
(let (form-description-4579) (if (unwind-protect ... ... ...) nil
(ert-fail form-description-4579))) value-4577)) (write-region "foo"
nil tmp-name4) (let* ((fn-4580 #'file-exists-p) (args-4581
(condition-case err (list tmp-name4) (error ...)))) (let ((value-4582
'ert-form-evaluation-aborted-4583)) (let (form-description-4584) (if
(unwind-protect ... ... ...) nil (ert-fail form-description-4584)))
value-4582)) (save-current-buffer (set-buffer (setq buffer
(dired-noselect (expand-file-name "tramp-test*/*"
ert-remote-temporary-file-directory)))) (goto-char (point-min)) (let*
((fn-4585 #'search-forward-regexp) (args-4586 (condition-case err ...
...))) (let ((value-4587 ...)) (let (form-description-4589) (if ...
nil ...)) value-4587)) (goto-char (point-min)) (let* ((fn-4590
#'search-forward-regexp) (args-4591 (condition-case err ... ...)))
(let ((value-4592 ...)) (let (form-description-4594) (if ... nil ...))
value-4592))) (kill-buffer buffer)) (condition-case nil (progn
(kill-buffer buffer)) (error nil)) (condition-case nil (progn
(delete-directory tmp-name1 'recursive)) (error nil)) (condition-case
nil (progn (delete-directory tmp-name2 'recursive)) (error nil))))
  (let ((quoted (car tail))) (let* ((tmp-name1 (expand-file-name
(tramp--test-make-temp-name nil quoted))) (tmp-name2 (expand-file-name
(tramp--test-make-temp-name nil quoted))) (tmp-name3 (expand-file-name
"foo" tmp-name1)) (tmp-name4 (expand-file-name "bar" tmp-name2))
(ert-remote-temporary-file-directory (funcall (if quoted
#'file-name-quote #'identity) ert-remote-temporary-file-directory))
buffer) (unwind-protect (progn (make-directory tmp-name1)
(write-region "foo" nil tmp-name3) (let* ((fn-4535 #'file-directory-p)
(args-4536 (condition-case err ... ...))) (let ((value-4537 ...)) (let
(form-description-4539) (if ... nil ...)) value-4537)) (let* ((fn-4540
#'file-exists-p) (args-4541 (condition-case err ... ...))) (let
((value-4542 ...)) (let (form-description-4544) (if ... nil ...))
value-4542)) (make-directory tmp-name2) (write-region "foo" nil
tmp-name4) (let* ((fn-4545 #'file-directory-p) (args-4546
(condition-case err ... ...))) (let ((value-4547 ...)) (let
(form-description-4549) (if ... nil ...)) value-4547)) (let* ((fn-4550
#'file-exists-p) (args-4551 (condition-case err ... ...))) (let
((value-4552 ...)) (let (form-description-4554) (if ... nil ...))
value-4552)) (save-current-buffer (set-buffer (setq buffer
(dired-noselect ...))) (goto-char (point-min)) (let* ((fn-4555 ...)
(args-4556 ...)) (let (...) (let ... ...) value-4557)) (goto-char
(point-min)) (let* ((fn-4560 ...) (args-4561 ...)) (let (...) (let ...
...) value-4562))) (kill-buffer buffer) (save-current-buffer
(set-buffer (setq buffer (dired-noselect ...))) (goto-char
(point-min)) (let* ((fn-4565 ...) (args-4566 ...)) (let (...) (let ...
...) value-4567)) (goto-char (point-min)) (let* ((fn-4570 ...)
(args-4571 ...)) (let (...) (let ... ...) value-4572))) (kill-buffer
buffer) (setq tmp-name3 (expand-file-name "*?" tmp-name1)) (setq
tmp-name4 (expand-file-name "[a-z0-9]" tmp-name2)) (write-region "foo"
nil tmp-name3) (let* ((fn-4575 #'file-exists-p) (args-4576
(condition-case err ... ...))) (let ((value-4577 ...)) (let
(form-description-4579) (if ... nil ...)) value-4577)) (write-region
"foo" nil tmp-name4) (let* ((fn-4580 #'file-exists-p) (args-4581
(condition-case err ... ...))) (let ((value-4582 ...)) (let
(form-description-4584) (if ... nil ...)) value-4582))
(save-current-buffer (set-buffer (setq buffer (dired-noselect ...)))
(goto-char (point-min)) (let* ((fn-4585 ...) (args-4586 ...)) (let
(...) (let ... ...) value-4587)) (goto-char (point-min)) (let*
((fn-4590 ...) (args-4591 ...)) (let (...) (let ... ...) value-4592)))
(kill-buffer buffer)) (condition-case nil (progn (kill-buffer buffer))
(error nil)) (condition-case nil (progn (delete-directory tmp-name1
'recursive)) (error nil)) (condition-case nil (progn (delete-directory
tmp-name2 'recursive)) (error nil)))) (setq tail (cdr tail)))
  (while tail (let ((quoted (car tail))) (let* ((tmp-name1
(expand-file-name (tramp--test-make-temp-name nil quoted))) (tmp-name2
(expand-file-name (tramp--test-make-temp-name nil quoted))) (tmp-name3
(expand-file-name "foo" tmp-name1)) (tmp-name4 (expand-file-name "bar"
tmp-name2)) (ert-remote-temporary-file-directory (funcall (if quoted
#'file-name-quote #'identity) ert-remote-temporary-file-directory))
buffer) (unwind-protect (progn (make-directory tmp-name1)
(write-region "foo" nil tmp-name3) (let* ((fn-4535 ...) (args-4536
...)) (let (...) (let ... ...) value-4537)) (let* ((fn-4540 ...)
(args-4541 ...)) (let (...) (let ... ...) value-4542)) (make-directory
tmp-name2) (write-region "foo" nil tmp-name4) (let* ((fn-4545 ...)
(args-4546 ...)) (let (...) (let ... ...) value-4547)) (let* ((fn-4550
...) (args-4551 ...)) (let (...) (let ... ...) value-4552))
(save-current-buffer (set-buffer (setq buffer ...)) (goto-char
(point-min)) (let* (... ...) (let ... ... value-4557)) (goto-char
(point-min)) (let* (... ...) (let ... ... value-4562))) (kill-buffer
buffer) (save-current-buffer (set-buffer (setq buffer ...)) (goto-char
(point-min)) (let* (... ...) (let ... ... value-4567)) (goto-char
(point-min)) (let* (... ...) (let ... ... value-4572))) (kill-buffer
buffer) (setq tmp-name3 (expand-file-name "*?" tmp-name1)) (setq
tmp-name4 (expand-file-name "[a-z0-9]" tmp-name2)) (write-region "foo"
nil tmp-name3) (let* ((fn-4575 ...) (args-4576 ...)) (let (...) (let
... ...) value-4577)) (write-region "foo" nil tmp-name4) (let*
((fn-4580 ...) (args-4581 ...)) (let (...) (let ... ...) value-4582))
(save-current-buffer (set-buffer (setq buffer ...)) (goto-char
(point-min)) (let* (... ...) (let ... ... value-4587)) (goto-char
(point-min)) (let* (... ...) (let ... ... value-4592))) (kill-buffer
buffer)) (condition-case nil (progn (kill-buffer buffer)) (error nil))
(condition-case nil (progn (delete-directory tmp-name1 'recursive))
(error nil)) (condition-case nil (progn (delete-directory tmp-name2
'recursive)) (error nil)))) (setq tail (cdr tail))))
  (let ((tail (if (tramp--test-expensive-test-p) '(nil t) '(nil))))
(while tail (let ((quoted (car tail))) (let* ((tmp-name1
(expand-file-name (tramp--test-make-temp-name nil quoted))) (tmp-name2
(expand-file-name (tramp--test-make-temp-name nil quoted))) (tmp-name3
(expand-file-name "foo" tmp-name1)) (tmp-name4 (expand-file-name "bar"
tmp-name2)) (ert-remote-temporary-file-directory (funcall (if quoted
... ...) ert-remote-temporary-file-directory)) buffer) (unwind-protect
(progn (make-directory tmp-name1) (write-region "foo" nil tmp-name3)
(let* (... ...) (let ... ... value-4537)) (let* (... ...) (let ... ...
value-4542)) (make-directory tmp-name2) (write-region "foo" nil
tmp-name4) (let* (... ...) (let ... ... value-4547)) (let* (... ...)
(let ... ... value-4552)) (save-current-buffer (set-buffer ...)
(goto-char ...) (let* ... ...) (goto-char ...) (let* ... ...))
(kill-buffer buffer) (save-current-buffer (set-buffer ...) (goto-char
...) (let* ... ...) (goto-char ...) (let* ... ...)) (kill-buffer
buffer) (setq tmp-name3 (expand-file-name "*?" tmp-name1)) (setq
tmp-name4 (expand-file-name "[a-z0-9]" tmp-name2)) (write-region "foo"
nil tmp-name3) (let* (... ...) (let ... ... value-4577)) (write-region
"foo" nil tmp-name4) (let* (... ...) (let ... ... value-4582))
(save-current-buffer (set-buffer ...) (goto-char ...) (let* ... ...)
(goto-char ...) (let* ... ...)) (kill-buffer buffer)) (condition-case
nil (progn (kill-buffer buffer)) (error nil)) (condition-case nil
(progn (delete-directory tmp-name1 ...)) (error nil)) (condition-case
nil (progn (delete-directory tmp-name2 ...)) (error nil)))) (setq tail
(cdr tail)))))
  #f(lambda () [tramp-use-connection-share
tramp-inline-compress-start-size tramp-fuse-unmount-on-cleanup
tramp-fuse-remove-hidden-files tramp-copy-size-limit
comp-warn-primitives ange-ftp-make-backup-files t] (let* ((fn-4505
#'not) (args-4506 (condition-case err ... ...))) (let ((value-4507
...)) (let (form-description-4509) (if ... nil ...)) value-4507))
(let* ((fn-4510 #'tramp--test-enabled) (args-4511 (condition-case err
... ...))) (let ((value-4512 ...)) (let (form-description-4514) (if
... nil ...)) value-4512)) (let* ((fn-4515 #'tramp--test-sh-p)
(args-4516 (condition-case err ... ...))) (let ((value-4517 ...)) (let
(form-description-4519) (if ... nil ...)) value-4517)) (let* ((fn-4520
#'not) (args-4521 (condition-case err ... ...))) (let ((value-4522
...)) (let (form-description-4524) (if ... nil ...)) value-4522))
(let* ((fn-4525 #'not) (args-4526 (condition-case err ... ...))) (let
((value-4527 ...)) (let (form-description-4529) (if ... nil ...))
value-4527)) (let* ((fn-4530 #'not) (args-4531 (condition-case err ...
...))) (let ((value-4532 ...)) (let (form-description-4534) (if ...
nil ...)) value-4532)) (let ((tail (if ... ... ...))) (while tail (let
(...) (let* ... ...) (setq tail ...)))) nil)()
  #f(compiled-function () #<bytecode 0x27b3328d8edaeec>)()
  handler-bind-1(#f(compiled-function () #<bytecode
0x27b3328d8edaeec>) (error quit) #f(compiled-function (err) #<bytecode
-0x138e5909ca3ae4a1>))
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
:name tramp-test17-dired-with-wildcards :documentation "Check `dired'
with wildcards." :body #f(lambda () ... ... ... ... ... ... ... ...
nil) :most-recent-result ... :expected-result-type :passed :tags nil
:file-name "/Users/user/wip/emacs/test/lisp/net/tramp-tests.el")
:result #s(ert-test-failed :messages "" :should-forms ... :duration
0.358962 :condition ... :backtrace ... :infos nil) :exit-continuation
#f(compiled-function () #<bytecode 0x51ad822b7943>)
:ert-debug-on-error nil))
  ert-run-test(#s(ert-test :name tramp-test17-dired-with-wildcards
:documentation "Check `dired' with wildcards." :body #f(lambda ()
[tramp-use-connection-share tramp-inline-compress-start-size
tramp-fuse-unmount-on-cleanup tramp-fuse-remove-hidden-files
tramp-copy-size-limit comp-warn-primitives ange-ftp-make-backup-files
t] (let* (... ...) (let ... ... value-4507)) (let* (... ...) (let ...
... value-4512)) (let* (... ...) (let ... ... value-4517)) (let* (...
...) (let ... ... value-4522)) (let* (... ...) (let ... ...
value-4527)) (let* (... ...) (let ... ... value-4532)) (let (...)
(while tail ...)) nil) :most-recent-result #s(ert-test-failed
:messages "" :should-forms ((... :form ... :value t) (... :form ...
:value t) (... :form ... :value t) (... :form ... :value t) (... :form
... :value t) (... :form ... :value t) (... :form ... :value t) (...
:form ... :value t) (... :form ... :value t) (... :form ... :value t)
(... :form ... :value 237) (... :form ... :value 172)) :duration
0.358962 :condition (user-error "tramp-test*/*: No files matching
wildcard") :backtrace (#s(backtrace-frame :evald t :fun signal :args
... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame
:evald t :fun user-error :args ... :flags nil :locals nil :buffer nil
:pos nil) #s(backtrace-frame :evald t :fun dired-insert-directory
:args ... :flags nil :locals ... :buffer nil :pos nil)
#s(backtrace-frame :evald t :fun dired-readin-insert :args nil :flags
nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun
#f(compiled-function () #<bytecode 0x961a9cabc66572>) :args nil :flags
nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun
combine-change-calls-1 :args ... :flags nil :locals ... :buffer nil
:pos nil) #s(backtrace-frame :evald t :fun dired-readin :args nil
:flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald
t :fun dired-internal-noselect :args ... :flags nil :locals nil
:buffer nil :pos nil) #s(backtrace-frame :evald t :fun dired-noselect
:args ... :flags nil :locals nil :buffer nil :pos nil)
#s(backtrace-frame :evald nil :fun setq :args ... :flags nil :locals
nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun
set-buffer :args ... :flags nil :locals nil :buffer nil :pos nil)
#s(backtrace-frame :evald nil :fun save-current-buffer :args ...
:flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald
nil :fun progn :args ... :flags nil :locals nil :buffer nil :pos nil)
#s(backtrace-frame :evald nil :fun unwind-protect :args ... :flags nil
:locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun
let* :args ... :flags nil :locals ... :buffer nil :pos nil)
#s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals
... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun while
:args ... :flags nil :locals nil :buffer nil :pos nil)
#s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals
... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda
() ... ... ... ... ... ... ... ... nil) :args nil :flags nil :locals
nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun
#f(compiled-function () #<bytecode 0x27b3328d8edaeec>) :args nil
:flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald
t :fun handler-bind-1 :args ... :flags nil :locals nil :buffer nil
:pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal
:args ... :flags nil :locals ... :buffer nil :pos nil)
#s(backtrace-frame :evald t :fun ert-run-test :args #0 :flags nil
:locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun
ert-run-or-rerun-test :args ... :flags nil :locals ... :buffer nil
:pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args ...
:flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald
t :fun ert-run-tests-batch :args ... :flags nil :locals nil :buffer
nil :pos nil) #s(backtrace-frame :evald t :fun
ert-run-tests-batch-and-exit :args ... :flags nil :locals nil :buffer
nil :pos nil) #s(backtrace-frame :evald t :fun eval :args ... :flags
nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun
command-line-1 :args ... :flags nil :locals ... :buffer nil :pos nil)
#s(backtrace-frame :evald t :fun command-line :args nil :flags nil
:locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun
normal-top-level :args nil :flags nil :locals nil :buffer nil :pos
nil)) :infos nil) :expected-result-type :passed :tags nil :file-name
"/Users/user/wip/emacs/test/lisp/net/tramp-tests.el"))
  ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ...
:test-map #<hash-table eql 98/98 0x41dbee75 ...> :test-results ...
:test-start-times ... :test-end-times ... :passed-expected 29
:passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped
1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name
tramp-test17-dired-with-wildcards :documentation "Check `dired' with
wildcards." :body #f(lambda () ... ... ... ... ... ... ... ... nil)
:most-recent-result ... :expected-result-type :passed :tags nil
:file-name "/Users/user/wip/emacs/test/lisp/net/tramp-tests.el")
#f(compiled-function (event-type &rest event-args) #<bytecode
-0x1f51d8eb74ff2eab>))
  ert-run-tests((not (or (tag :unstable) (tag :nativecomp)))
#f(compiled-function (event-type &rest event-args) #<bytecode
-0x1f51d8eb74ff2eab>) nil)
  ert-run-tests-batch((not (or (tag :unstable) (tag :nativecomp))))
  ert-run-tests-batch-and-exit((not (or (tag :unstable) (tag :nativecomp))))
  eval((ert-run-tests-batch-and-exit '(not (or (tag :unstable) (tag
:nativecomp)))) t)
  command-line-1(("-L" ":." "-l" "ert" "--eval" "(setq
treesit-extra-load-path '(\"/Users/user/.emacs.d/tree-sitter\"))"
"--eval" "(setq ert-batch-backtrace-right-margin 9999)" "-l"
"lisp/net/tramp-tests.el" "--eval" "(ert-run-tests-batch-and-exit
(quote (not (or (tag :unstable) (tag :nativecomp)))))"))
  command-line()
  normal-top-level()
Test tramp-test17-dired-with-wildcards condition:
    (user-error "tramp-test*/*: No files matching wildcard")
   FAILED  31/98  tramp-test17-dired-with-wildcards (0.358962 sec) at
lisp/net/tramp-tests.el:3492


In GNU Emacs 30.0.50 (build 1, aarch64-apple-darwin23.3.0, NS
 appkit-2487.40 Version 14.3.1 (Build 23D60)) of 2024-05-27 built on
 My-MacBook-Pro.local
Repository revision: a2ada9094824a673b441f082857c3e77347a1ff8
Repository branch: master
Windowing system distributor 'Apple', version 10.3.2487
System Description:  macOS 14.3.1

Message #8 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Tue, 28 May 2024 09:44:07 +0200

[Message part 1 (text/plain, inline)]

Stefan Kangas <stefankangas <at> gmail.com> writes:

Hi Stefan,

> I see one tramp test fail on macOS 14.3.1.  Details below:
>
> Ran 98 tests, 82 results as expected, 1 unexpected, 15 skipped
> (2024-05-27 23:27:48+0200, 89.934240 sec)
>
> 1 unexpected results:
>    FAILED  tramp-test17-dired-with-wildcards

Could you pls instrument the test, and run it again? See appended patch.

Best regards, Michael.

[Message part 2 (text/x-patch, attachment)]

Message #11 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Tue, 28 May 2024 22:56:04 +0000

Michael Albinus <michael.albinus <at> gmx.de> writes:

>> I see one tramp test fail on macOS 14.3.1.  Details below:
>>
>> Ran 98 tests, 82 results as expected, 1 unexpected, 15 skipped
>> (2024-05-27 23:27:48+0200, 89.934240 sec)
>>
>> 1 unexpected results:
>>    FAILED  tramp-test17-dired-with-wildcards
>
> Could you pls instrument the test, and run it again? See appended patch.

I've sent you the logs off-list.

Message #14 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Wed, 29 May 2024 09:28:46 +0200

Stefan Kangas <stefankangas <at> gmail.com> writes:

Hi Stefan,

>> Could you pls instrument the test, and run it again? See appended patch.
>
> I've sent you the logs off-list.

Sorry, that message was deleted in my Spam folder. Could you, pls,
resend the message?

Message #17 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Wed, 29 May 2024 20:51:37 +0000

Michael Albinus <michael.albinus <at> gmx.de> writes:

>> I've sent you the logs off-list.
>
> Sorry, that message was deleted in my Spam folder. Could you, pls,
> resend the message?

I've resent it.  Please let me know if you still can't find it.

Message #20 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Thu, 30 May 2024 10:54:22 +0200

Stefan Kangas <stefankangas <at> gmail.com> writes:

Hi Stefan,

>>> I've sent you the logs off-list.
>>
>> Sorry, that message was deleted in my Spam folder. Could you, pls,
>> resend the message?
>
> I've resent it.  Please let me know if you still can't find it.

I've got it now. Still in  the Spam folder, but I was prepared this
time :-)

I have already seen the error in the log, but I have no clue yet where
it comes from. Needs further checks.

Best regards, Michael.

Message #23 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Thu, 30 May 2024 14:12:48 +0200

Stefan Kangas <stefankangas <at> gmail.com> writes:

Hi Stefan,

>>> I see one tramp test fail on macOS 14.3.1.  Details below:
>>>
>>> Ran 98 tests, 82 results as expected, 1 unexpected, 15 skipped
>>> (2024-05-27 23:27:48+0200, 89.934240 sec)
>>>
>>> 1 unexpected results:
>>>    FAILED  tramp-test17-dired-with-wildcards
>>
>> Could you pls instrument the test, and run it again? See appended patch.
>
> I've sent you the logs off-list.

Thanks for this. The problem is obvious in the log:

--8<---------------cut here---------------start------------->8---
00:52:56.390327 tramp-send-command (6) # ( cd /var/folders/28/y4qn6tl11_126568wmx_6kpr0000gn/T/ && env INSIDE_EMACS\=30.0.50\,tramp\:2.7.1-pre /bin/sh -c gls\ -d\ -al\ tramp-test\*/\* </dev/null; echo tramp_exit_status $? )
00:52:56.394295 tramp-wait-for-regexp (6) # 
/bin/sh: gls: command not found
tramp_exit_status 127
///75ffbd7d44c24c99d4107a0eba33363e#$
--8<---------------cut here---------------end--------------->8---

However, Tramp hasn't decided to use gls on its own. Debugging the test
case, it looks like it comes from dired-insert-directory:

--8<---------------cut here---------------start------------->8---
    ;; Expand directory wildcards and fill file-list.
    (let ((dir-wildcard (and (null file-list) wildcard
                             (insert-directory-wildcard-in-dir-p dir))))
      (cond ((and dir-wildcard (files--use-insert-directory-program-p))
             (setq switches (concat "-d " switches))
             (let* ((default-directory (car dir-wildcard))
                    (script (format "%s %s %s"
                                    insert-directory-program
                                    switches (cdr dir-wildcard)))
                    (sh (or (and remotep "/bin/sh")
                            (executable-find shell-file-name)
                            (executable-find "sh")))
                    (switch (if remotep "-c" shell-command-switch)))
               ;; Enable globstar
               (when-let ((globstar dired-maybe-use-globstar)
                          (enable-it
                           (assoc-default
                            (file-truename sh) dired-enable-globstar-in-shell
                            (lambda (reg shell) (string-match reg shell)))))
                 (setq script (format "%s; %s" enable-it script)))
               (unless
                   (zerop
                    (process-file sh nil (current-buffer) nil switch script))
                 (user-error
                  "%s: No files matching wildcard" (cdr dir-wildcard)))
               (insert-directory-clean (point) switches)))
--8<---------------cut here---------------end--------------->8---

'script' is a formatted string, which includes
'insert-directory-program'. And that user option tells us

--8<---------------cut here---------------start------------->8---
Absolute or relative name of the ‘ls’-like program.
This is used by ‘insert-directory’ and ‘dired-insert-directory’
(thus, also by ‘dired’).  For Dired, this should ideally point to
GNU ls, or another version of ls that supports the "--dired"
flag.  See ‘dired-use-ls-dired’.

On GNU/Linux and other capable systems, the default is "ls".

On *BSD and macOS systems, the default "ls" does not support
the "--dired" flag.  Therefore, the default is to use the
"gls" executable on such machines, if it exists.  This means
that there should normally be no need to customize this when
installing GNU coreutils using something like ports or Homebrew.
--8<---------------cut here---------------end--------------->8---

So I guess 'insert-directory-program' is "gls" in your case, but Tramp
doesn't find it. Where is it installed? What does '(executable-find "gls")'
return on your machine?

Best regards, Michael.

Message #26 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Fri, 31 May 2024 11:22:48 +0200

[Message part 1 (text/plain, inline)]

Michael Albinus <michael.albinus <at> gmx.de> writes:

Hi Stefan,

> So I guess 'insert-directory-program' is "gls" in your case, but Tramp
> doesn't find it. Where is it installed? What does '(executable-find "gls")'
> return on your machine?

Could you pls check, whether the appended patch fixes the problem?

Best regards, Michael.

[Message part 2 (text/x-patch, attachment)]

Message #29 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 2 Jun 2024 10:19:20 +0000

Michael Albinus <michael.albinus <at> gmx.de> writes:

> So I guess 'insert-directory-program' is "gls" in your case, but Tramp
> doesn't find it. Where is it installed? What does '(executable-find "gls")'
> return on your machine?

    (executable-find "gls")
    => "/opt/homebrew/bin/gls"

Message #32 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 02 Jun 2024 12:33:44 +0200

Stefan Kangas <stefankangas <at> gmail.com> writes:

Hi Stefan,

>> So I guess 'insert-directory-program' is "gls" in your case, but Tramp
>> doesn't find it. Where is it installed? What does '(executable-find "gls")'
>> return on your machine?
>
>     (executable-find "gls")
>     => "/opt/homebrew/bin/gls"

Hmm. Should we add "/opt/homebrew/bin" to the default
tramp-remote-path? It looks very special, even on macOS.

OTOH, we have directories like "/local/freeware/bin", "/local/gnu/bin",
"/usr/freeware/bin", "/usr/pkg/bin", "/usr/contrib/bin", "/opt/bin",
"/opt/sbin" and "/opt/local/bin" there, which are also special.

Best regards, Michael.

Message #35 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 2 Jun 2024 03:37:25 -0700

Michael Albinus <michael.albinus <at> gmx.de> writes:

> Could you pls check, whether the appended patch fixes the problem?

It does, thank you.

Ran 98 tests, 83 results as expected, 0 unexpected, 15 skipped
(2024-06-02 12:22:29+0200, 81.888878 sec)

Message #38 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: Gerd Möllmann <gerd.moellmann <at> gmail.com>,
 71235 <at> debbugs.gnu.org,
 Mattias Engdegård <mattias.engdegard <at> gmail.com>
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 2 Jun 2024 11:04:36 +0000

Michael Albinus <michael.albinus <at> gmx.de> writes:

>>     (executable-find "gls")
>>     => "/opt/homebrew/bin/gls"
>
> Hmm. Should we add "/opt/homebrew/bin" to the default
> tramp-remote-path? It looks very special, even on macOS.
>
> OTOH, we have directories like "/local/freeware/bin", "/local/gnu/bin",
> "/usr/freeware/bin", "/usr/pkg/bin", "/usr/contrib/bin", "/opt/bin",
> "/opt/sbin" and "/opt/local/bin" there, which are also special.

AFAIK, this is the default location where Homebrew (https://brew.sh/)
puts binaries, at least on new installations.  (The Homebrew directory
structure has changed slightly over the years, but I don't know if this
is one of them since I only noticed it those changes passing.)

I think it might make sense to add it to `tramp-remote-path`, but I'm
not familiar enough with Tramp to understand all the implications of
doing so.  I'm copying in Mattias and Gerd, who I believe are using
macOS, in case they have anything to add.

Message #41 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: Gerd Möllmann <gerd.moellmann <at> gmail.com>,
 71235 <at> debbugs.gnu.org,
 Mattias Engdegård <mattias.engdegard <at> gmail.com>
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 2 Jun 2024 11:07:34 +0000

Stefan Kangas <stefankangas <at> gmail.com> writes:

> AFAIK, this is the default location where Homebrew (https://brew.sh/)
> puts binaries, at least on new installations.  (The Homebrew directory
> structure has changed slightly over the years, but I don't know if this
> is one of them since I only noticed it those changes passing.)

That last sentence should read:

   The Homebrew directory structure has changed slightly over the years,
   but I don't know if this directory changed, since I only noticed
   the changes in passing.

Message #46 received at 71235-done <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: Gerd Möllmann <gerd.moellmann <at> gmail.com>,
 Mattias Engdegård <mattias.engdegard <at> gmail.com>,
 71235-done <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 02 Jun 2024 15:14:34 +0200

Version: 30.1

Stefan Kangas <stefankangas <at> gmail.com> writes:

Hi Stefan,

>>>     (executable-find "gls")
>>>     => "/opt/homebrew/bin/gls"
>>
>> Hmm. Should we add "/opt/homebrew/bin" to the default
>> tramp-remote-path? It looks very special, even on macOS.
>>
>> OTOH, we have directories like "/local/freeware/bin", "/local/gnu/bin",
>> "/usr/freeware/bin", "/usr/pkg/bin", "/usr/contrib/bin", "/opt/bin",
>> "/opt/sbin" and "/opt/local/bin" there, which are also special.
>
> AFAIK, this is the default location where Homebrew (https://brew.sh/)
> puts binaries, at least on new installations.  (The Homebrew directory
> structure has changed slightly over the years, but I don't know if this
> is one of them since I only noticed it those changes passing.)

Finally, I have done both: Adding "/opt/homebrew/bin" to
tramp-remote-path, and applying the patch to dired-insert-directory I've
shown the other message.

Pushed to master, and closing the bug.

Best regards, Michael.

Message #49 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Gerd Möllmann <gerd.moellmann <at> gmail.com>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: 71235 <at> debbugs.gnu.org,
 Mattias Engdegård <mattias.engdegard <at> gmail.com>,
 Michael Albinus <michael.albinus <at> gmx.de>
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 02 Jun 2024 16:03:20 +0200

Stefan Kangas <stefankangas <at> gmail.com> writes:

> Michael Albinus <michael.albinus <at> gmx.de> writes:
>
>>>     (executable-find "gls")
>>>     => "/opt/homebrew/bin/gls"
>>
>> Hmm. Should we add "/opt/homebrew/bin" to the default
>> tramp-remote-path? It looks very special, even on macOS.
>>
>> OTOH, we have directories like "/local/freeware/bin", "/local/gnu/bin",
>> "/usr/freeware/bin", "/usr/pkg/bin", "/usr/contrib/bin", "/opt/bin",
>> "/opt/sbin" and "/opt/local/bin" there, which are also special.
>
> AFAIK, this is the default location where Homebrew (https://brew.sh/)
> puts binaries, at least on new installations.  (The Homebrew directory
> structure has changed slightly over the years, but I don't know if this
> is one of them since I only noticed it those changes passing.)
>
> I think it might make sense to add it to `tramp-remote-path`, but I'm
> not familiar enough with Tramp to understand all the implications of
> doing so.  I'm copying in Mattias and Gerd, who I believe are using
> macOS, in case they have anything to add.

Homebrew uses different directories depending on if it's on a mac with
x64 or arm64. I have both, and find the easiest thing to do is to use
the brew shellenv command in my .zshenv to set up things. (I have a
common dotfles setup for my machines.)

  /Users/gerd % brew shellenv 
  export HOMEBREW_PREFIX="/opt/homebrew";
  export HOMEBREW_CELLAR="/opt/homebrew/Cellar";
  export HOMEBREW_REPOSITORY="/opt/homebrew";
  export PATH="/opt/homebrew/bin:/opt/homebrew/sbin${PATH+:$PATH}";
  export MANPATH="/opt/homebrew/share/man${MANPATH+:$MANPATH}:";
  export INFOPATH="/opt/homebrew/share/info:${INFOPATH:-}";

Then, I'm using exec-path-from-shell in my init.el to get the shell
environment into Emacs, even when started from Emacs.app. Starting an
.app bundle doesn't involve the shell, so one has to do something.

Works like a charm with everything I use, including things like Magit
over tramp, and so on.

(If you are using zsh from Homebrew and not the one from macOS, you
might want to call connection-local-set-profile-variables or something
to get the right zsh.)

Message #52 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Gerd Möllmann <gerd.moellmann <at> gmail.com>
Cc: 71235 <at> debbugs.gnu.org,
 Mattias Engdegård <mattias.engdegard <at> gmail.com>,
 Stefan Kangas <stefankangas <at> gmail.com>
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 02 Jun 2024 16:23:07 +0200

Gerd Möllmann <gerd.moellmann <at> gmail.com> writes:

Hi Gerd,

> Homebrew uses different directories depending on if it's on a mac with
> x64 or arm64. I have both, and find the easiest thing to do is to use
> the brew shellenv command in my .zshenv to set up things. (I have a
> common dotfles setup for my machines.)
>
>   /Users/gerd % brew shellenv 
>   export HOMEBREW_PREFIX="/opt/homebrew";
>   export HOMEBREW_CELLAR="/opt/homebrew/Cellar";
>   export HOMEBREW_REPOSITORY="/opt/homebrew";
>   export PATH="/opt/homebrew/bin:/opt/homebrew/sbin${PATH+:$PATH}";
>   export MANPATH="/opt/homebrew/share/man${MANPATH+:$MANPATH}:";
>   export INFOPATH="/opt/homebrew/share/info:${INFOPATH:-}";
>
> Then, I'm using exec-path-from-shell in my init.el to get the shell
> environment into Emacs, even when started from Emacs.app. Starting an
> .app bundle doesn't involve the shell, so one has to do something.

What's exec-path-from-shell? ELPA package?

> Works like a charm with everything I use, including things like Magit
> over tramp, and so on.

TL;DR: I should also add /opt/homebrew/sbin to tramp-remote-path, right?

Best regards, Michael.

Message #55 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Gerd Möllmann <gerd.moellmann <at> gmail.com>
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: 71235 <at> debbugs.gnu.org,
 Mattias Engdegård <mattias.engdegard <at> gmail.com>,
 Stefan Kangas <stefankangas <at> gmail.com>
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 02 Jun 2024 16:46:08 +0200

Michael Albinus <michael.albinus <at> gmx.de> writes:

> Gerd Möllmann <gerd.moellmann <at> gmail.com> writes:
>
> Hi Gerd,
>
>> Then, I'm using exec-path-from-shell in my init.el to get the shell
>> environment into Emacs, even when started from Emacs.app. Starting an
>> .app bundle doesn't involve the shell, so one has to do something.
>
> What's exec-path-from-shell? ELPA package?

ELPA or MELPA, yes.

>> Works like a charm with everything I use, including things like Magit
>> over tramp, and so on.
>
> TL;DR: I should also add /opt/homebrew/sbin to tramp-remote-path, right?

Yes :-)

Message #58 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Gerd Möllmann <gerd.moellmann <at> gmail.com>
Cc: 71235 <at> debbugs.gnu.org,
 Mattias Engdegård <mattias.engdegard <at> gmail.com>,
 Stefan Kangas <stefankangas <at> gmail.com>
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 02 Jun 2024 16:55:36 +0200

Gerd Möllmann <gerd.moellmann <at> gmail.com> writes:

>> TL;DR: I should also add /opt/homebrew/sbin to tramp-remote-path, right?
>
> Yes :-)

Done.

Best regards, Michael.

Message #61 received at 71235 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: 71235 <at> debbugs.gnu.org
Subject: Re: bug#71235: Failing test on macOS:
 tramp-test17-dired-with-wildcards
Date: Sun, 2 Jun 2024 10:51:17 -0700

Michael Albinus <michael.albinus <at> gmx.de> writes:

> Pushed to master, and closing the bug.

Thanks!

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.