Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 11:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Instrument Tramp tests

Browse source 
; * test/infra/test-jobs.yml (test-lisp-net-inotify): Run expensive.
; * test/lisp/net/tramp-tests.el (tramp-test32-shell-command): Instrument.
This commit is contained in:
Michael Albinus 2022-07-27 13:46:53 +02:00
parent db4dd28c21
commit e6b0fa4408
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/infra/test-jobs.yml
View file

@ -338,7 +338,7 @@ test-lisp-net-inotify:
- test/lisp/net/*resources/**
variables:
target: emacs-inotify
make_params: "-k -C test check-lisp-net"
make_params: "-k -C test check-lisp-net SELECTOR='(not (tag :unstable))'"
test-lisp-nxml-inotify:
stage: normal

10
test/lisp/net/tramp-tests.el
View file

@ -5400,13 +5400,21 @@ INPUT, if non-nil, is a string sent to the process."
(let ((stderr (generate-new-buffer "*stderr*")))
(unwind-protect
(with-temp-buffer
(when (getenv "EMACS_EMBA_CI")
(tramp--test-message "Hallo1"))
(funcall
this-shell-command
"echo foo >&2; echo bar" (current-buffer) stderr)
(when (getenv "EMACS_EMBA_CI")
(tramp--test-message "Hallo2"))
(should (string-equal "bar\n" (buffer-string)))
(when (getenv "EMACS_EMBA_CI")
(tramp--test-message "Hallo3"))
;; Check stderr.
(should
(string-equal "foo\n" (tramp-get-buffer-string stderr))))
(string-equal "foo\n" (tramp-get-buffer-string stderr)))
(when (getenv "EMACS_EMBA_CI")
(tramp--test-message "Hallo4")))
;; Cleanup.
(ignore-errors (kill-buffer stderr))))))