@@ -4287,9 +4287,10 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
4287
4287
(ignore-errors (delete-file tmp-name)))
4288
4288
4289
4289
;; Test `async-shell-command-width'. Since Emacs 27.1.
4290
- (when (and (boundp 'async-shell-command-width)
4291
- (zerop (call-process "tput" nil nil nil "cols"))
4292
- (zerop (process-file "tput" nil nil nil "cols")))
4290
+ (when (ignore-errors
4291
+ (and (boundp 'async-shell-command-width)
4292
+ (zerop (call-process "tput" nil nil nil "cols"))
4293
+ (zerop (process-file "tput" nil nil nil "cols"))))
4293
4294
(let (async-shell-command-width)
4294
4295
(should
4295
4296
(string-equal
@@ -5535,12 +5536,14 @@ process sentinels. They shall not disturb each other."
5535
5536
(let* (;; For the watchdog.
5536
5537
(default-directory (expand-file-name temporary-file-directory))
5537
5538
(shell-file-name (if (tramp--test-adb-p) "/system/bin/sh" "/bin/sh"))
5539
+ ;; It doesn't work on w32 systems.
5538
5540
(watchdog
5539
- (start-process-shell-command
5540
- "*watchdog*" nil
5541
- (format
5542
- "sleep %d; kill -USR1 %d"
5543
- tramp--test-asynchronous-requests-timeout (emacs-pid))))
5541
+ (unless (tramp--test-windows-nt)
5542
+ (start-process-shell-command
5543
+ "*watchdog*" nil
5544
+ (format
5545
+ "sleep %d; kill -USR1 %d"
5546
+ tramp--test-asynchronous-requests-timeout (emacs-pid)))))
5544
5547
(tmp-name (tramp--test-make-temp-name))
5545
5548
(default-directory tmp-name)
5546
5549
;; Do not cache Tramp properties.
0 commit comments