From: Eli Zaretskii <eliz@gnu.org>
To: Michael Albinus <michael.albinus@gmx.de>
Cc: emacs-devel@gnu.org
Subject: Failing test in files-tests.el on MS-Windows
Date: Fri, 15 Feb 2019 12:34:39 +0200 [thread overview]
Message-ID: <83zhqxmjb4.fsf@gnu.org> (raw)
Michael,
The (relatively) recently added test in files-tests.el fails on
MS-Windows:
Test files-tests-file-name-non-special-insert-directory backtrace:
signal(ert-test-failed (((should-error (with-temp-buffer (insert-dir
ert-fail(((should-error (with-temp-buffer (insert-directory nospecia
(if errorp764 nil (ert-fail (append (funcall form-description-fn-765
(let ((errorp764 nil) (form-description-fn-765 #'(lambda nil form-de
(let (form-description-763) (let ((errorp764 nil) (form-description-
(let ((value-762 (gensym "ert-form-evaluation-aborted-"))) (let (for
(progn (let ((value-762 (gensym "ert-form-evaluation-aborted-"))) (l
(unwind-protect (progn (let ((value-762 (gensym "ert-form-evaluation
(let* ((temporary-file-directory (file-truename temporary-file-direc
(closure (t) nil (let* ((temporary-file-directory (file-truename tem
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name files-tests-file-name-non-special-ins
ert-run-or-rerun-test(#s(ert--stats :selector (not ...) :tests [...
ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type
ert-run-tests-batch((not (tag :unstable)))
ert-run-tests-batch-and-exit((not (tag :unstable)))
eval((ert-run-tests-batch-and-exit '(not (tag :unstable))))
command-line-1((#("-L" 0 2 (charset cp862)) #(";." 0 2 (charset cp86
command-line()
normal-top-level()
Test files-tests-file-name-non-special-insert-directory condition:
(ert-test-failed
((should-error
(with-temp-buffer
(insert-directory nospecial-dir "")))
:form
(let
((temp-buffer ...))
(save-current-buffer
(set-buffer temp-buffer)
(unwind-protect ... ...)))
:value nil :fail-reason "did not signal an error"))
FAILED 56/79 files-tests-file-name-non-special-insert-directory (2.015561 sec)
Test files-tests-file-name-non-special-insert-directory backtrace:
signal(ert-test-failed (((should-error (with-temp-buffer (insert-dir
ert-fail(((should-error (with-temp-buffer (insert-directory nospecia
(if errorp764 nil (ert-fail (append (funcall form-description-fn-765
(let ((errorp764 nil) (form-description-fn-765 #'(lambda nil form-de
(let (form-description-763) (let ((errorp764 nil) (form-description-
(let ((value-762 (gensym "ert-form-evaluation-aborted-"))) (let (for
(progn (let ((value-762 (gensym "ert-form-evaluation-aborted-"))) (l
(unwind-protect (progn (let ((value-762 (gensym "ert-form-evaluation
(let* ((temporary-file-directory (file-truename temporary-file-direc
(closure (t) nil (let* ((temporary-file-directory (file-truename tem
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name files-tests-file-name-non-special-ins
ert-run-or-rerun-test(#s(ert--stats :selector (not ...) :tests [...
ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type
ert-run-tests-batch((not (tag :unstable)))
ert-run-tests-batch-and-exit((not (tag :unstable)))
eval((ert-run-tests-batch-and-exit '(not (tag :unstable))))
command-line-1((#("-L" 0 2 (charset cp862)) #(";." 0 2 (charset cp86
command-line()
normal-top-level()
Test files-tests-file-name-non-special-insert-directory condition:
(ert-test-failed
((should-error
(with-temp-buffer
(insert-directory nospecial-dir "")))
:form
(let
((temp-buffer ...))
(save-current-buffer
(set-buffer temp-buffer)
(unwind-protect ... ...)))
:value nil :fail-reason "did not signal an error"))
FAILED 56/79 files-tests-file-name-non-special-insert-directory (2.015561 sec)
If you could tell a bit regarding why the expression
(with-temp-buffer (insert-directory nospecial-dir ""))
is supposed to signal an error here, I could look into the possible
reason(s).
Thanks.
next reply other threads:[~2019-02-15 10:34 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-02-15 10:34 Eli Zaretskii [this message]
2019-02-15 12:00 ` Failing test in files-tests.el on MS-Windows Michael Albinus
2019-02-15 13:47 ` Eli Zaretskii
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=83zhqxmjb4.fsf@gnu.org \
--to=eliz@gnu.org \
--cc=emacs-devel@gnu.org \
--cc=michael.albinus@gmx.de \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.