diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2020-10-16 16:49:47 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-10-16 16:49:47 +0300 |
| commit | 0b0297ad6060884d70c6a23026ac87fb319529ef (patch) | |
| tree | 5951f813bdf2e95db6aa8637339c3ccdd47abf41 /test/lisp/emacs-lisp/testcover-tests.el | |
| parent | 9056e6392a7619332f5c191bf386164f4a093420 (diff) | |
| download | emacs-0b0297ad6060884d70c6a23026ac87fb319529ef.tar.gz emacs-0b0297ad6060884d70c6a23026ac87fb319529ef.tar.bz2 emacs-0b0297ad6060884d70c6a23026ac87fb319529ef.zip | |
Fix file-name problems in several tests
* test/lisp/saveplace-tests.el
(saveplace-test-forget-unreadable-files): Use file-truename, to
avoid false negatives when file names are not 'equal' as strings,
but point to the same file.
* test/lisp/emacs-lisp/edebug-tests.el (edebug-tests-with-normal-env)
(edebug-tests-run-macro):
* test/lisp/emacs-lisp/testcover-tests.el
(testcover-tests-markup-region, testcover-tests-run-test-case):
Bind find-file-suppress-same-file-warnings to a non-nil value, to
avoid warnings about "same-file-names", at least on MS-Windows,
due to 8+3 aliases.
Diffstat (limited to 'test/lisp/emacs-lisp/testcover-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/testcover-tests.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/testcover-tests.el b/test/lisp/emacs-lisp/testcover-tests.el index 784367c287e..9e7a3bf31e3 100644 --- a/test/lisp/emacs-lisp/testcover-tests.el +++ b/test/lisp/emacs-lisp/testcover-tests.el @@ -46,6 +46,7 @@ is working correctly on a code sample. OPTARGS are optional arguments for `testcover-start'." (interactive "r") (let ((tempfile (make-temp-file "testcover-tests-" nil ".el")) + (find-file-suppress-same-file-warnings t) (code (buffer-substring beg end)) (marked-up-code)) (unwind-protect @@ -98,7 +99,8 @@ arguments for `testcover-start'." (eval-and-compile (defun testcover-tests-run-test-case (marked-up-code) "Test the operation of Testcover on the string MARKED-UP-CODE." - (let ((tempfile (make-temp-file "testcover-tests-" nil ".el"))) + (let ((tempfile (make-temp-file "testcover-tests-" nil ".el")) + (find-file-suppress-same-file-warnings t)) (unwind-protect (progn (with-temp-file tempfile |