From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Stefan Kangas Newsgroups: gmane.emacs.bugs Subject: bug#71235: Failing test on macOS: tramp-test17-dired-with-wildcards Date: Mon, 27 May 2024 14:32:54 -0700 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="10898"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Michael Albinus To: 71235@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Mon May 27 23:34:25 2024 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1sBhz7-0002g7-2r for geb-bug-gnu-emacs@m.gmane-mx.org; Mon, 27 May 2024 23:34:25 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1sBhye-0004ZO-Tx; Mon, 27 May 2024 17:33:56 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1sBhyc-0004Yp-Kc for bug-gnu-emacs@gnu.org; Mon, 27 May 2024 17:33:54 -0400 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1sBhyc-0006JZ-4l for bug-gnu-emacs@gnu.org; Mon, 27 May 2024 17:33:54 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1sBhyk-0007MO-Jd; Mon, 27 May 2024 17:34:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Stefan Kangas Original-Sender: "Debbugs-submit" Resent-CC: michael.albinus@gmx.de, bug-gnu-emacs@gnu.org Resent-Date: Mon, 27 May 2024 21:34:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 71235 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org X-Debbugs-Original-Xcc: Michael Albinus Original-Received: via spool by submit@debbugs.gnu.org id=B.171684559728238 (code B ref -1); Mon, 27 May 2024 21:34:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 27 May 2024 21:33:17 +0000 Original-Received: from localhost ([127.0.0.1]:45359 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1sBhxz-0007LM-JO for submit@debbugs.gnu.org; Mon, 27 May 2024 17:33:17 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:41706) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1sBhxw-0007LC-EC for submit@debbugs.gnu.org; Mon, 27 May 2024 17:33:14 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1sBhxn-0004PB-5W for bug-gnu-emacs@gnu.org; Mon, 27 May 2024 17:33:03 -0400 Original-Received: from mail-ed1-x535.google.com ([2a00:1450:4864:20::535]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1sBhxi-0006GP-Je for bug-gnu-emacs@gnu.org; Mon, 27 May 2024 17:33:02 -0400 Original-Received: by mail-ed1-x535.google.com with SMTP id 4fb4d7f45d1cf-5785161b98cso64128a12.1 for ; Mon, 27 May 2024 14:32:57 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1716845576; x=1717450376; darn=gnu.org; h=to:subject:message-id:date:mime-version:from:from:to:cc:subject :date:message-id:reply-to; bh=cDb3QZs1R1eGwtciQN2LCOwaQzdw9mODXrdOHHU4bsc=; b=IdciglmowxFdiFgGab99Z5hDf1IFFQfpVu9pvR3uvRuFejBnGDzgY4PKaQFY8UyWsJ hg1pLE0abpE026Itt62wLzYq/11xTS+r075wT7VGDLodyKwLuV/QM8VEGbJsQ5lDkuxz fCXIwYn9BsYS42kJVDdlw1eUjBhFw2qS4ZYDMqzkfHyRTGgqcKO5uy+9DEl+Dei9JNX7 30t9USMLwe4Q61VejcLty4qqhkvt37r5Frdv9WZHDIIO2B3pc0UMU2mAYdgCvEOp6lTH PYE49FTfGxwxQDuAidYvlNTVO0rTh1J33pSsgfKj13bogfjS9gyFmpGQfBk+c8lVE1fz fewg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1716845576; x=1717450376; h=to:subject:message-id:date:mime-version:from:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=cDb3QZs1R1eGwtciQN2LCOwaQzdw9mODXrdOHHU4bsc=; b=aJ+ZSEJlz7JqRG2XHY3BR5TbbZhs4v+u6JM93jpAknNXSQ56xAgtXOA+GPcNQNg9J/ XT48AkLqdbyCo8jviCrYr/KgV2JUVjKsoJkkAULXPOdGWgzJ67lpqVr681pyOYrFijtp 4KKxOKxpAD0ulEZn1rqugMG05I13cgMQTSBKfZoQNE5hRZH7YQAqVja9HZg8Mzqdin/e M1vOc/iqwxPmAllMI203/HF81yw2oUETyYZFi6zk2Kk51nFiPdPQIC00rTu7X4eyvVlR NNsM7io7fFAS7/DXXddbOloZOuosW1xBivrpoAI0FGqQWxolUNvImhDp2BtGh6Y2Xdbg tNOA== X-Gm-Message-State: AOJu0YzD0YXiNDhsh1SLopCRo9sSCSnvMA3xSf806A+2BZl10D1MiHMw tnVqmCEmQU3HmxGmI6ObbgiZ8Vhq9MXrqvdSHnLVxYAqHqnUMVj1+l+OwHroJVEiC8IIBDAaBdP 8q/jOdGNULqfgHBCOyA8FFEzbV9xvAxgi X-Google-Smtp-Source: AGHT+IELONkd2fUT6FHU7gdI8fwIvI65XUL+xDuEB+80GGUwkojSuNeI0GvDQ29aYeaFqUxD9eIUQdyhPxjyL7re0rc= X-Received: by 2002:a50:d649:0:b0:572:6af5:1b61 with SMTP id 4fb4d7f45d1cf-57851915266mr9767262a12.6.1716845575731; Mon, 27 May 2024 14:32:55 -0700 (PDT) Original-Received: from 753933720722 named unknown by gmailapi.google.com with HTTPREST; Mon, 27 May 2024 14:32:54 -0700 Received-SPF: pass client-ip=2a00:1450:4864:20::535; envelope-from=stefankangas@gmail.com; helo=mail-ed1-x535.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:286070 Archived-At: 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 () #)() combine-change-calls-1(1 1 #f(compiled-function () #)) 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 () #)() handler-bind-1(#f(compiled-function () #) (error quit) #f(compiled-function (err) #)) 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 () #) :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 () #) :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 () #) :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 # :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) #)) ert-run-tests((not (or (tag :unstable) (tag :nativecomp))) #f(compiled-function (event-type &rest event-args) #) 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