bug#64975: 30.0.50; accept-process-output and async connect

[Eli Zaretskii]

> From: Helmut Eller <eller.helmut@gmail.com>
> Date: Mon, 31 Jul 2023 15:31:00 +0200
> 
> (ert-deftest async-connect ()
>   (let* ((host 'local)
>        (family 'ipv4)
>        (port 57869)
>        (server (make-network-process
>                 :name "server" :server t :noquery t :reuseaddr t
>                 :host host :service port :family family))
>        (proc (make-network-process
>               :name "async-connect" :nowait t
>               :host host :service port :family family)))
>     (should (eq (process-status proc) 'connect))
>     (should (accept-process-output proc 2))
>     (should (eq (process-status proc) 'open))))
> 
> when executed with
>   emacs --batch -Q -l async-connect.el -f ert-run-tests-batch-and-exit
> 
> It seems that accept-process-output correctly updates the process-status
> but it forgets to break out of the loop.
> 
> With the following change, the test passes:

Robert, any comments?