(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))
(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))
(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))))))