From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 22 Feb 2025 09:49:25 +0000 (+0200)
Subject: ; Fix saveplace-tests for MS-Windows
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e813464d7a89a2338e599bfaeb07ccc4cfca556;p=emacs.git

; Fix saveplace-tests for MS-Windows

* test/lisp/saveplace-tests.el
(saveplace-test-load-alist-from-file): Fix test for MS-Windows.

(cherry picked from commit 456c52978c505ce09467564cda3db30d3d38197c)
---

diff --git a/test/lisp/saveplace-tests.el b/test/lisp/saveplace-tests.el
index ac4ee3acffe..a694dacff8d 100644
--- a/test/lisp/saveplace-tests.el
+++ b/test/lisp/saveplace-tests.el
@@ -86,9 +86,17 @@
         (save-place-alist nil))
     (save-place-load-alist-from-file)
     (should (equal save-place-alist
-                   '(("/home/skangas/.emacs.d/cache/recentf" . 1306)
-                     ("/home/skangas/wip/emacs/"
-                      (dired-filename . "/home/skangas/wip/emacs/COPYING")))))))
+                   (list
+                    (cons
+                     ;; We use expand-file-name here because on
+                     ;; MS-Windows an absolute file name should have a
+                     ;; drive letter.
+                     (expand-file-name "/home/skangas/.emacs.d/cache/recentf")
+                     1306)
+                    (list
+                     (expand-file-name "/home/skangas/wip/emacs/")
+                      (cons 'dired-filename
+                            (expand-file-name "/home/skangas/wip/emacs/COPYING"))))))))
 
 (provide 'saveplace-tests)
 ;;; saveplace-tests.el ends here