From: Eli Zaretskii 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