diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-16 17:27:59 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-16 17:43:47 +0100 |
| commit | 47953b014f3023c9ff791afd73ba040f3043200b (patch) | |
| tree | b0aa80bdd21b2b667eb999fd2328c451f4f887ba | |
| parent | 74ec2c1c56ec178ac5b4cd47fb3b7837ebb8f942 (diff) | |
Add test for file-backup-file-names
| -rw-r--r-- | compat-28.el | 2 | ||||
| -rw-r--r-- | compat-tests.el | 11 |
2 files changed, 12 insertions, 1 deletions
diff --git a/compat-28.el b/compat-28.el index c58c1d5..64cfcd7 100644 --- a/compat-28.el +++ b/compat-28.el @@ -594,7 +594,7 @@ the leading `-' char." (if (zerop (logand 1 mode)) ?- ?x) (if (zerop (logand 1 mode)) ?T ?t)))) -(compat-defun file-backup-file-names (filename) ;; <UNTESTED> +(compat-defun file-backup-file-names (filename) ;; <compat-tests:file-backup-file-names> "Return a list of backup files for FILENAME. The list will be sorted by modification time so that the most recent files are first." diff --git a/compat-tests.el b/compat-tests.el index d8aab1c..dee4469 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -1232,6 +1232,17 @@ (should-equal t (always 1)) ;; single argument (should-equal t (always 1 2 3 4))) ;; multiple arguments +(ert-deftest file-backup-file-names () + (let ((file (make-temp-file "compat-tests")) backups) + (should-not (file-backup-file-names file)) + (push (concat file "~") backups) + (make-empty-file (car backups)) + (should-equal backups (file-backup-file-names file)) + (sleep-for 1) ;; FIXME Slowing down the test suite here is not great. + (push (concat file ".~1~") backups) + (make-empty-file (car backups)) + (should-equal backups (file-backup-file-names file)))) + (ert-deftest make-nearby-temp-file () ;; TODO Test tramp remote directory. (let ((file1 (make-nearby-temp-file "compat-tests")) |