Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4207733f
Commit
4207733f
authored
Aug 02, 2017
by
Michael Albinus
Browse files
; Extend traces in tramp-test36-asynchronous-requests for hydra
parent
ae055834
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
test/lisp/net/tramp-tests.el
test/lisp/net/tramp-tests.el
+5
-5
No files found.
test/lisp/net/tramp-tests.el
View file @
4207733f
...
...
@@ -3804,6 +3804,7 @@ process sentinels. They shall not disturb each other."
;; seconds, and we send a SIGUSR1 signal after 300 seconds.
(
with-timeout
(
300
(
tramp--test-timeout-handler
))
(
define-key
special-event-map
[sigusr1]
'tramp--test-timeout-handler
)
(
tramp--test-instrument-test-case
(
if
(
getenv
"EMACS_HYDRA_CI"
)
10
0
)
(
let*
((
watchdog
(
start-process
"*watchdog*"
nil
shell-file-name
shell-command-switch
...
...
@@ -3917,10 +3918,9 @@ process sentinels. They shall not disturb each other."
;; Give the watchdog a chance.
(
read-event
nil
nil
0.01
)
;; Regular operation post process action.
(
tramp--test-instrument-test-case
10
(
if
(
=
count
2
)
(
should-not
(
file-attributes
file
))
(
should
(
file-attributes
file
))))
(
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
))
...
...
@@ -3945,7 +3945,7 @@ process sentinels. They shall not disturb each other."
(
ignore-errors
(
delete-process
(
get-buffer-process
buf
)))
(
ignore-errors
(
kill-buffer
buf
)))
(
ignore-errors
(
cancel-timer
timer
))
(
ignore-errors
(
delete-directory
tmp-name
'recursive
))))))
(
ignore-errors
(
delete-directory
tmp-name
'recursive
))))))
)
(
ert-deftest
tramp-test37-recursive-load
()
"Check that Tramp does not fail due to recursive load."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment