mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

; Enable traces for tramp-tests.el on hydra

Browse Source
This commit is contained in:
Michael Albinus 2017-07-12 14:53:53 +02:00
parent d014a5e15c
commit 46a681e4e1
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/Makefile.in
View File

@ -147,7 +147,8 @@ endif
%.log: %.elc
$(AM_V_at)${MKDIR_P} $(dir $@)
$(AM_V_GEN)HOME=/nonexistent $(emacs) -l ert -l $(testloadfile) \
--eval "(ert-run-tests-batch-and-exit ${SELECTOR_ACTUAL})" ${WRITE_LOG}
--eval "(ert-run-tests-batch-and-exit ${SELECTOR_ACTUAL})" \
$(if $(and ${NIX_STORE}, $(findstring tramp, $(testloadfile))), , ${WRITE_LOG})
ifeq (@HAVE_MODULES@, yes)
maybe_exclude_module_tests :=

14
test/lisp/net/tramp-tests.el
View File

@ -3729,13 +3729,17 @@ process sentinels. They shall not disturb each other."
(let ((default-directory tmp-name)
(file
(buffer-name (nth (random (length buffers)) buffers))))
(funcall timer-operation file))))))
(tramp--test-message
"Start timer %s %s" file (current-time-string))
(funcall timer-operation file)
(tramp--test-message
"Stop timer %s %s" file (current-time-string)))))))
;; Create temporary buffers. The number of buffers
;; corresponds to the number of processes; it could be
;; increased in order to make pressure on Tramp.
(dotimes (_i number-proc)
(add-to-list 'buffers (generate-new-buffer "foo")))
(setq buffers (cons (generate-new-buffer "foo") buffers)))
;; Open asynchronous processes. Set process filter and sentinel.
(dolist (buf buffers)
@ -3776,6 +3780,8 @@ process sentinels. They shall not disturb each other."
(proc (get-buffer-process buf))
(file (process-get proc 'foo))
(count (process-get proc 'bar)))
(tramp--test-message
"Start action %d %s %s" count buf (current-time-string))
;; Regular operation.
(if (= count 0)
(should-not (file-attributes file))
@ -3787,6 +3793,8 @@ process sentinels. They shall not disturb each other."
(if (= count 2)
(should-not (file-attributes file))
(should (file-attributes file)))
(tramp--test-message
"Stop action %d %s %s" count buf (current-time-string))
(process-put proc 'bar (1+ count))
(unless (process-live-p proc)
(setq buffers (delq buf buffers))))))
@ -3794,6 +3802,8 @@ process sentinels. They shall not disturb each other."
;; Checks. All process output shall exists in the
;; respective buffers. All created files shall be
;; deleted.
(tramp--test-message
"Check %s" (current-time-string))
(dolist (buf buffers)
(with-current-buffer buf
(should (string-equal (format "%s\n" buf) (buffer-string)))))