From: Peter Oliver Date: Tue, 16 Jul 2024 23:06:02 +0000 (+0100) Subject: Try harder to stabilize dired-test-bug27243-02 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7911d88eef0567e6bc31c3967790c056a17eff26;p=emacs.git Try harder to stabilize dired-test-bug27243-02 * test/lisp/dired-tests.el (dired-test-bug27243-02): Don't rely on the expected point, since columns will move if the size of the parent directory changes order of magnitude. (Bug#72120) (cherry picked from commit 6a389d5be47d1c143054a69e7302371d3889d658) --- diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el index 4fb99b9b728..be585d276ec 100644 --- a/test/lisp/dired-tests.el +++ b/test/lisp/dired-tests.el @@ -190,7 +190,6 @@ "Test for https://debbugs.gnu.org/cgi/bugreport.cgi?bug=27243#28 ." (ert-with-temp-directory test-dir (let ((dired-auto-revert-buffer t) - (dired-free-space nil) buffers) ;; On MS-Windows, get rid of 8+3 short names in test-dir, if the ;; corresponding long file names exist, otherwise such names trip @@ -216,7 +215,9 @@ ;; Sanity check: point should now be back on the subdirectory. (should (eq (point) pt1)) (push (dired test-dir) buffers) - (should (eq (point) pt1))) + (should (equal (dired-file-name-at-point) + (concat (file-name-as-directory test-dir) + (file-name-as-directory "test-subdir"))))) (dolist (buf buffers) (when (buffer-live-p buf) (kill-buffer buf)))))))