diff options
Diffstat (limited to 'test/lisp/saveplace-tests.el')
| -rw-r--r-- | test/lisp/saveplace-tests.el | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/test/lisp/saveplace-tests.el b/test/lisp/saveplace-tests.el index ae7749fe930..27aa2ec1924 100644 --- a/test/lisp/saveplace-tests.el +++ b/test/lisp/saveplace-tests.el @@ -22,25 +22,20 @@ ;;; Commentary: (require 'ert) +(require 'ert-x) (require 'saveplace) -(defvar saveplace-tests-dir - (file-truename - (expand-file-name "saveplace-resources" - (file-name-directory (or load-file-name - buffer-file-name))))) - (ert-deftest saveplace-test-save-place-to-alist/dir () (save-place-mode) (let* ((save-place-alist nil) (save-place-loaded t) - (loc saveplace-tests-dir)) + (loc (ert-resource-directory))) (save-window-excursion (dired loc) (save-place-to-alist) (should (equal save-place-alist - `((,(concat loc "/") - (dired-filename . ,(concat loc "/saveplace"))))))))) + `((,loc + (dired-filename . ,(concat loc "saveplace"))))))))) (ert-deftest saveplace-test-save-place-to-alist/file () (save-place-mode) @@ -91,7 +86,7 @@ (save-place-mode) (let ((save-place-loaded nil) (save-place-file - (expand-file-name "saveplace" saveplace-tests-dir)) + (ert-resource-file "saveplace")) (save-place-alist nil)) (load-save-place-alist-from-file) (should (equal save-place-alist |