[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 93576969c2b 2/2: ; Fix the test in last change.
From: |
Eli Zaretskii |
Subject: |
master 93576969c2b 2/2: ; Fix the test in last change. |
Date: |
Mon, 8 Apr 2024 23:22:15 -0400 (EDT) |
branch: master
commit 93576969c2b53ff9d0d7b08768782e770f0cb0f4
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
; Fix the test in last change.
---
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))))))