From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 9 Apr 2024 03:21:38 +0000 (+0300)
Subject: ; Fix the test in last change.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1b4ec4b4eb409fca8468f992f2f3725e47b7b4e;p=emacs.git

; Fix the test in last change.

(cherry picked from commit 93576969c2b53ff9d0d7b08768782e770f0cb0f4)
---

diff --git a/test/lisp/ls-lisp-tests.el b/test/lisp/ls-lisp-tests.el
index 81e3e163c9c..beecac22afc 100644
--- a/test/lisp/ls-lisp-tests.el
+++ b/test/lisp/ls-lisp-tests.el
@@ -45,6 +45,7 @@
                (dired-internal-noselect dir "-la --time=ctime")
              (setq buf (current-buffer)
                    str (format-time-string "%H:%M" ts))
+             (goto-char (point-min))
              (should (search-forward-regexp str nil t))
              (kill-buffer))
            (setq ts (- (float-time) 60))
@@ -53,6 +54,7 @@
                (dired-internal-noselect dir "-la --sort=time")
              (setq buf (current-buffer)
                    str (format-time-string "%H:%M" ts))
+             (goto-char (point-min))
              (should (search-forward-regexp str nil t))
              (kill-buffer))
            (setq ts (- (float-time) 120))
@@ -61,6 +63,7 @@
                (dired-internal-noselect dir "-la --time=atime")
              (setq buf (current-buffer)
                    str (format-time-string "%H:%M" ts))
+             (goto-char (point-min))
              (should (search-forward-regexp str nil t))
              (kill-buffer)))
        (when (buffer-live-p buf) (kill-buffer buf))))))