From e1b4ec4b4eb409fca8468f992f2f3725e47b7b4e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 9 Apr 2024 06:21:38 +0300 Subject: [PATCH] ; Fix the test in last change. (cherry picked from commit 93576969c2b53ff9d0d7b08768782e770f0cb0f4) --- test/lisp/ls-lisp-tests.el | 3 +++ 1 file changed, 3 insertions(+) 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)))))) -- 2.39.5