; 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 ac4ee3acffebc6814ec819f7f6731f1a52927c5b..a694dacff8d2a4c2bac97f392516beb3214043d9 100644 (file)
--- 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