mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Adapt Tramp tests

Browse source 
* test/lisp/net/tramp-tests.el (tramp-test29-start-file-process)
(tramp-test30-make-process): Adapt tests.
This commit is contained in:
Michael Albinus 2025-05-06 12:22:45 +02:00
parent b172a1478c
commit ed7b55f6bf
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -5401,6 +5401,12 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(with-timeout (10 (tramp--test-timeout-handler)) (with-timeout (10 (tramp--test-timeout-handler))
(while (< (- (point-max) (point-min)) (length "foo")) (while (< (- (point-max) (point-min)) (length "foo"))
(while (accept-process-output proc 0 nil t)))) (while (accept-process-output proc 0 nil t))))
;; Some `cat' implementations do not support the `cat -'
;; call. We skip then.
(skip-unless
(not
(string-match-p (rx "cat: -: input file is output file\n")
(buffer-string))))
(should (string-match-p "foo" (buffer-string)))) (should (string-match-p "foo" (buffer-string))))
;; Cleanup. ;; Cleanup.
@ -5595,6 +5601,12 @@ If UNSTABLE is non-nil, the test is tagged as `:unstable'."
(with-timeout (10 (tramp--test-timeout-handler)) (with-timeout (10 (tramp--test-timeout-handler))
(while (< (- (point-max) (point-min)) (length "foo")) (while (< (- (point-max) (point-min)) (length "foo"))
(while (accept-process-output proc 0 nil t)))) (while (accept-process-output proc 0 nil t))))
;; Some `cat' implementations do not support the `cat -'
;; call. We skip then.
(skip-unless
(not
(string-match-p (rx "cat: -: input file is output file\n")
(buffer-string))))
(should (string-match-p "foo" (buffer-string)))) (should (string-match-p "foo" (buffer-string))))
;; Cleanup. ;; Cleanup.