From 0e813464d7a89a2338e599bfaeb07ccc4cfca556 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 22 Feb 2025 11:49:25 +0200 Subject: [PATCH] ; 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) --- test/lisp/saveplace-tests.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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 -- 2.39.5