diff options
Diffstat (limited to 'test/src/process-tests.el')
| -rw-r--r-- | test/src/process-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/src/process-tests.el b/test/src/process-tests.el index c3b4e17dbc0..711a27f1cfb 100644 --- a/test/src/process-tests.el +++ b/test/src/process-tests.el @@ -231,7 +231,7 @@ process to complete." (with-timeout (60 (ert-fail "Test timed out")) ;; Frequent random (?) failures on hydra.nixos.org, with no process output. ;; Maybe this test should be tagged unstable? See bug#31214. - (skip-unless (not (getenv "EMACS_HYDRA_CI"))) + (skip-when (getenv "EMACS_HYDRA_CI")) (with-temp-buffer (let ((process (make-process :name "mix-stderr" @@ -723,7 +723,7 @@ FD_SETSIZE file descriptors (Bug#24325)." (skip-unless (featurep 'make-network-process '(:server t))) (skip-unless (featurep 'make-network-process '(:family local))) ;; Avoid hang due to connect/accept handshake on Cygwin (bug#49496). - (skip-unless (not (eq system-type 'cygwin))) + (skip-when (eq system-type 'cygwin)) (with-timeout (60 (ert-fail "Test timed out")) (ert-with-temp-directory directory (process-tests--with-processes processes @@ -763,7 +763,7 @@ FD_SETSIZE file descriptors (Bug#24325)." "Check that Emacs doesn't crash when trying to use more than FD_SETSIZE file descriptors (Bug#24325)." ;; This test cannot be run if PTYs aren't supported. - (skip-unless (not (eq system-type 'windows-nt))) + (skip-when (eq system-type 'windows-nt)) (with-timeout (60 (ert-fail "Test timed out")) (process-tests--with-processes processes ;; In order to use `make-serial-process', we need to create some @@ -830,7 +830,7 @@ Return nil if that can't be determined." (when (eq process-tests--EMFILE-message :unknown) (setq process-tests--EMFILE-message (with-temp-buffer - (when (eql (ignore-error 'file-error + (when (eql (ignore-error file-error (call-process "errno" nil t nil "EMFILE")) 0) (goto-char (point-min)) |