Commit 4118db72 authored by Dave Cooper's avatar Dave Cooper

expanded client-test for existing server.

parent 48f9d93a
......@@ -63,8 +63,11 @@
(handler-case
(let ((sock (usocket:socket-listen "localhost" port)))
(usocket:socket-close sock))
(usocket:address-in-use-error (e) :in-use))))
(unless (eql result :in-use) port)))
(usocket:address-in-use-error (e) :in-use)
#+allegro
(excl:errno-stream-error (e) :errno)
(t (e) :unknown))))
(unless (member result '(:in-use :errno :unknown)) port)))
#+nil
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment