From: Eli Zaretskii <eliz@gnu.org>
To: Michael Albinus <michael.albinus@gmx.de>
Cc: 32226@debbugs.gnu.org
Subject: bug#32226: shadowfile test failures
Date: Mon, 23 Jul 2018 18:59:32 +0300 [thread overview]
Message-ID: <83bmayvt7f.fsf@gnu.org> (raw)
In-Reply-To: <87in56e0oy.fsf@gmx.de> (message from Michael Albinus on Mon, 23 Jul 2018 11:55:09 +0200)
[-- Attachment #1: Type: text/plain, Size: 448 bytes --]
> From: Michael Albinus <michael.albinus@gmx.de>
> Cc: rgm@gnu.org, 32226@debbugs.gnu.org
> Date: Mon, 23 Jul 2018 11:55:09 +0200
>
> I have tried the following patch. It still runs as expected on my
> GNU/Linux machine. Could you pls check for MS Windows?
I ran that in batch mode. It ran for a while, and then seemed to
hang. I interrupted it; what ended up in the log file is attached.
Let me know how can I assist you in debugging this.
[-- Attachment #2: shadowfile-tests.log --]
[-- Type: application/octet-stream, Size: 7200 bytes --]
Running 10 tests (2018-07-23 18:52:28+0300)
passed 1/10 shadow-test00-clusters
passed 2/10 shadow-test01-sites
Test shadow-test02-files backtrace:
signal(ert-test-failed (((should (equal (shadow-parse-name (concat "
ert-fail(((should (equal (shadow-parse-name (concat "/" cluster ":"
(if (unwind-protect (setq value-274 (apply fn-272 args-273)) (setq f
(let (form-description-276) (if (unwind-protect (setq value-274 (app
(let ((value-274 (quote ert-form-evaluation-aborted-275))) (let (for
(let* ((fn-272 (function equal)) (args-273 (condition-case err (let
(progn (if (file-exists-p shadow-info-file) (progn (delete-file shad
(unwind-protect (progn (if (file-exists-p shadow-info-file) (progn (
(let ((shadow-info-file shadow-test-info-file) (shadow-todo-file sha
(lambda nil (let* ((fn-262 (function file-remote-p)) (args-263 (cond
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name shadow-test02-files :documentation "C
ert-run-or-rerun-test(#s(ert--stats :selector (not (tag :unstable))
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 (quote (not (tag :unstable)))))
command-line-1(("-L" ";." "-l" "ert" "-l" "lisp/shadowfile-tests.el"
command-line()
normal-top-level()
Test shadow-test02-files condition:
(ert-test-failed
((should
(equal
(shadow-parse-name ...)
hup))
:form
(equal
(tramp-file-name "cluster" nil nil "c" nil "/DOCUME~1/Zaretzky/LOCALS~1/Temp/shadowfile-testsSe3Hgz" nil)
(tramp-file-name nil nil nil "HOME-C4E4A596F7" nil "c:/DOCUME~1/Zaretzky/LOCALS~1/Temp/shadowfile-testsSe3Hgz" nil))
:value nil :explanation
(list-elt 1
(different-types "cluster" nil))))
FAILED 3/10 shadow-test02-files
Test shadow-test03-expand-cluster-in-file-name backtrace:
signal(ert-test-failed (((should (string-equal (shadow-expand-cluste
ert-fail(((should (string-equal (shadow-expand-cluster-in-file-name
(if (unwind-protect (setq value-349 (apply fn-347 args-348)) (setq f
(let (form-description-351) (if (unwind-protect (setq value-349 (app
(let ((value-349 (quote ert-form-evaluation-aborted-350))) (let (for
(let* ((fn-347 (function string-equal)) (args-348 (condition-case er
(progn (if (file-exists-p shadow-info-file) (progn (delete-file shad
(unwind-protect (progn (if (file-exists-p shadow-info-file) (progn (
(let ((shadow-info-file shadow-test-info-file) (shadow-todo-file sha
(lambda nil (let* ((fn-332 (function file-remote-p)) (args-333 (cond
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name shadow-test03-expand-cluster-in-file-
ert-run-or-rerun-test(#s(ert--stats :selector (not (tag :unstable))
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 (quote (not (tag :unstable)))))
command-line-1(("-L" ";." "-l" "ert" "-l" "lisp/shadowfile-tests.el"
command-line()
normal-top-level()
Test shadow-test03-expand-cluster-in-file-name condition:
(ert-test-failed
((should
(string-equal
(shadow-expand-cluster-in-file-name ...)
(shadow-expand-cluster-in-file-name ...)))
:form
(string-equal "/cluster:c:/DOCUME~1/Zaretzky/LOCALS~1/Temp/shadowfile-testsaWGmXv" "/HOME-C4E4A596F7:c:/DOCUME~1/Zaretzky/LOCALS~1/Temp/shadowfile-testsaWGmXv")
:value nil))
FAILED 4/10 shadow-test03-expand-cluster-in-file-name
Test shadow-test04-contract-file-name backtrace:
signal(file-error ("Host `c' looks like a remote host, `cluster' can
apply(signal (file-error ("Host `c' looks like a remote host, `clust
(setq value-379 (apply fn-377 args-378))
(unwind-protect (setq value-379 (apply fn-377 args-378)) (setq form-
(if (unwind-protect (setq value-379 (apply fn-377 args-378)) (setq f
(let (form-description-381) (if (unwind-protect (setq value-379 (app
(let ((value-379 (quote ert-form-evaluation-aborted-380))) (let (for
(let* ((fn-377 (function string-equal)) (args-378 (condition-case er
(progn (if (file-exists-p shadow-info-file) (progn (delete-file shad
(unwind-protect (progn (if (file-exists-p shadow-info-file) (progn (
(let ((shadow-info-file shadow-test-info-file) (shadow-todo-file sha
(lambda nil (let* ((fn-367 (function file-remote-p)) (args-368 (cond
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name shadow-test04-contract-file-name :doc
ert-run-or-rerun-test(#s(ert--stats :selector (not (tag :unstable))
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 (quote (not (tag :unstable)))))
command-line-1(("-L" ";." "-l" "ert" "-l" "lisp/shadowfile-tests.el"
command-line()
normal-top-level()
Test shadow-test04-contract-file-name condition:
(file-error "Host `c' looks like a remote host, `cluster' can only use the local host")
FAILED 5/10 shadow-test04-contract-file-name
Test shadow-test05-file-match backtrace:
signal(ert-test-failed (((should (shadow-file-match (shadow-parse-na
ert-fail(((should (shadow-file-match (shadow-parse-name (concat "/cl
(if (unwind-protect (setq value-414 (apply fn-412 args-413)) (setq f
(let (form-description-416) (if (unwind-protect (setq value-414 (app
(let ((value-414 (quote ert-form-evaluation-aborted-415))) (let (for
(let* ((fn-412 (function shadow-file-match)) (args-413 (condition-ca
(progn (if (file-exists-p shadow-info-file) (progn (delete-file shad
(unwind-protect (progn (if (file-exists-p shadow-info-file) (progn (
(let ((shadow-info-file shadow-test-info-file) (shadow-todo-file sha
(lambda nil (let* ((fn-392 (function file-remote-p)) (args-393 (cond
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name shadow-test05-file-match :documentati
ert-run-or-rerun-test(#s(ert--stats :selector (not (tag :unstable))
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 (quote (not (tag :unstable)))))
command-line-1(("-L" ";." "-l" "ert" "-l" "lisp/shadowfile-tests.el"
command-line()
normal-top-level()
Test shadow-test05-file-match condition:
(ert-test-failed
((should
(shadow-file-match
(shadow-parse-name ...)
file))
:form
(shadow-file-match
(tramp-file-name "cluster" nil nil "c" nil "/DOCUME~1/Zaretzky/LOCALS~1/Temp/shadowfile-tests0bgirO" nil)
"c:/DOCUME~1/Zaretzky/LOCALS~1/Temp/shadowfile-tests0bgirO")
:value nil))
FAILED 6/10 shadow-test05-file-match
next prev parent reply other threads:[~2018-07-23 15:59 UTC|newest]
Thread overview: 25+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-07-20 17:22 bug#32226: shadowfile test failures Glenn Morris
2018-07-20 19:08 ` Eli Zaretskii
2018-07-21 10:36 ` Michael Albinus
2018-07-21 12:03 ` Eli Zaretskii
2018-07-21 12:13 ` Michael Albinus
2018-07-21 12:25 ` Eli Zaretskii
2018-07-21 12:48 ` Michael Albinus
2018-07-21 13:37 ` Eli Zaretskii
2018-07-21 13:56 ` Eli Zaretskii
2018-07-21 13:59 ` Michael Albinus
2018-07-21 14:21 ` Eli Zaretskii
2018-07-21 14:41 ` Michael Albinus
2018-07-23 9:55 ` Michael Albinus
2018-07-23 15:59 ` Eli Zaretskii [this message]
2018-07-23 16:18 ` Michael Albinus
2018-07-23 16:39 ` Eli Zaretskii
2018-07-23 16:52 ` Michael Albinus
2018-07-25 10:48 ` Michael Albinus
2018-07-25 14:47 ` Eli Zaretskii
2018-07-25 15:19 ` Michael Albinus
2018-07-21 10:33 ` Michael Albinus
2018-07-24 17:44 ` Glenn Morris
2018-07-25 11:22 ` Michael Albinus
2018-08-12 16:19 ` Michael Albinus
2018-08-12 23:46 ` Glenn Morris
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=83bmayvt7f.fsf@gnu.org \
--to=eliz@gnu.org \
--cc=32226@debbugs.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.